Searched refs:sub1 (Results 1 - 3 of 3) sorted by relevance
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | safewrap.t | 21 my $sub1 = sub { eval " eval '1+1' " }; 22 is $sub1->(), 2; 24 my $sub1w = $safe->wrap_code_ref($sub1); 29 is $sub1->(), 2, 'original ref should be unaffected'; 32 my @args = (42, [[ 0, { sub => $sub1 }, 2 ]], 24); 33 is $args[1][0][1]{sub}, $sub1; 37 isnt $sub1w2, $sub1;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | redef.t | 23 sub sub1 { 1 } subroutine 24 sub sub1 () { 2 } subroutine 26 ok 2, $warn =~ s/$NEWPROTO \Qsub main::sub1: none vs ()\E[^\n]+\n//s; 27 ok 3, $warn =~ s/Subroutine sub1 redefined[^\n]+\n//s;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/utils/ |
H A D | h2xs.PL | 216 =item B<-s>, B<--const-subs>=I<sub1,sub2>
|
Completed in 32 milliseconds