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 26 milliseconds