Lines Matching refs:perl
1 #!./perl
51 $PERL = ($Is_NetWare ? 'perl' :
53 $Is_MSWin32 ? '.\perl' :
54 './perl');
204 my $perl = ($Is_MacOS || $Is_VMS) ? $^X : "$wd/perl";
211 $perl = "$wd/perl.exe";
216 $perl -x \%0
237 eval 'exec ./perl -S \$0 \${1+"\$\@"}'
241 $s1 = "\$^X is $perl, \$0 is $script\n";
244 #!$wd/perl
250 $_ = ($Is_MacOS || $Is_VMS) ? `$perl $script` : `$script`;
252 s{\bminiperl\b}{perl}; # so that test doesn't fail with miniperl
253 s{is perl}{is $perl}; # for systems where $^X is only a basename
256 $_ = `$perl $script`;
259 ok((($Is_MSWin32 || $Is_os2) ? uc($_) eq uc($s1) : $_ eq $s1), " :$_:!=:$s1: after `$perl $script`");
318 # FreeBSD cannot get rid of both the leading "perl :"
319 # and the trailing " (perl)": some FreeBSD versions
321 || ($^O eq 'freebsd' && $ps =~ m/^(?:perl: )?x(?: \(perl\))?$/),
337 # when perl is compiled with -DENV_IS_CASELESS)
392 # 20020414 mjd-perl-patch+@plover.com
400 # [perl #19330]
415 # Test for bug [perl #27839]