Lines Matching full:perl

1 #!/usr/bin/perl -w
29 # Change 'perl' to './perl' so the shell doesn't go looking through PATH.
31     my($perl) = shift;
32     $perl = File::Spec->catfile(File::Spec->curdir, $perl) unless
33       File::Spec->file_name_is_absolute($perl);
35     return $perl;
37 # Make a putative perl binary say "ok\n". We have to do it this way
40 # `$perl -le "print 'ok'"`. And, for portability, we can't use fork().
42     my $perl = shift;
46     system($perl, "rel2abs2rel$$.pl");
60 my $perl = safe_rel($^X);
61 is( sayok($perl), "ok\n",   "'$perl rel2abs2rel$$.pl' works" );
63 $perl = File::Spec->rel2abs($^X);
64 is( sayok($perl), "ok\n",   "'$perl rel2abs2rel$$.pl' works" );
66 $perl = File::Spec->canonpath($perl);
67 is( sayok($perl), "ok\n",   "canonpath(rel2abs($^X)) = $perl" );
69 $perl = safe_rel(File::Spec->abs2rel($perl));
70 is( sayok($perl), "ok\n",   "safe_rel(abs2rel(canonpath(rel2abs($^X)))) = $perl" );
72 $perl = safe_rel(File::Spec->canonpath($^X));
73 is( sayok($perl), "ok\n",   "safe_rel(canonpath($^X)) = $perl" );