Lines Matching refs:script
9 FindBin - Locate directory of original perl script
23 Locates the full path to the script bin directory to allow the use
31 If perl is invoked using the B<-e> option or the perl script is read from
37 $Bin - path to bin directory from where script was invoked
38 $Script - basename of script from which perl was invoked
114 # perl invoked with -e or script is on C<STDIN>
121 my $script = $0;
131 unless(($script =~ m#/# || ($dosish && $script =~ m#\\#))
132 && -f $script)
137 my $scr = File::Spec->catfile($dir, $script);
140 $script = $scr;
144 # $script has been found via PATH but perl could have
146 # if $script is a perl program, if not then $script = $0
149 # we know its executable so it is probably a script
152 $script = $0 unless(-T $script);
159 croak("Cannot find current script '$0'") unless(-f $script);
161 # Ensure $script contains the complete path incase we C<chdir>
163 $script = File::Spec->catfile(getcwd(), $script)
164 unless File::Spec->file_name_is_absolute($script);
166 ($Script,$Bin) = fileparse($script);
168 # Resolve $script if it is a link
171 my $linktext = readlink($script);
173 ($RealScript,$RealBin) = fileparse($script);
176 $script = (File::Spec->file_name_is_absolute($linktext))