Skip to content

Commit

Permalink
cage: cleanup tests and pod
Browse files Browse the repository at this point in the history
  • Loading branch information
Reini Urban committed Nov 16, 2012
1 parent b648a88 commit 06ff9db
Show file tree
Hide file tree
Showing 5 changed files with 27 additions and 586 deletions.
3 changes: 2 additions & 1 deletion MANIFEST
Expand Up @@ -4780,7 +4780,7 @@ pod/perltodo.pod
pod/perltooc.pod
pod/perltoot.pod
pod/perltrap.pod Perl traps for the unwary
pod/perltypes.pod Perl type support
pod/perltypes.pod Perl type support
pod/perlunicode.pod Perl Unicode support
pod/perlunifaq.pod Perl Unicode FAQ
pod/perluniintro.pod Perl Unicode introduction
Expand Down Expand Up @@ -4998,6 +4998,7 @@ symbian/version.pl Helper code for config.pl
symbian/xsbuild.pl Building extensions
taint.c Tainting code
t/base/cond.t See if conditionals work
t/base/const.t See if my const work
t/base/if.t See if if works
t/base/lex.t See if lexical items work
t/base/num.t See if numbers work
Expand Down
4 changes: 3 additions & 1 deletion op.c
Expand Up @@ -2664,6 +2664,7 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
OP *
Perl_my_attrs(pTHX_ OP *o, OP *attrs)
{
PERL_ARGS_ASSERT_MY_ATTRS;
return Perl_my_attrs_lex(aTHX_ o, attrs, 0);
}

Expand All @@ -2674,7 +2675,7 @@ Perl_my_attrs_lex(pTHX_ OP *o, OP *attrs, I32 lex)
OP *rops;
int maybe_scalar = 0;

PERL_ARGS_ASSERT_MY_ATTRS;
PERL_ARGS_ASSERT_MY_ATTRS_LEX;

/* [perl #17376]: this appears to be premature, and results in code such as
C< our(%x); > executing in list mode rather than void mode */
Expand Down Expand Up @@ -9230,6 +9231,7 @@ Perl_ck_pad(pTHX_ OP *o)
}
else
assert(type);
return NULL;
#endif
}

Expand Down

0 comments on commit 06ff9db

Please sign in to comment.