diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-05-31 08:23:00 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-31 16:17:29 +0000 |
| commit | 68fb0eb7ecdd3258dde75aba3e98109bd2bcc6c3 (patch) | |
| tree | 1527ebde0f4b1380e2aa26261218093355290398 /pod/perlvar.pod | |
| parent | 7883170db08353781efe22f939bdf0efb429fc0c (diff) | |
| download | perl-68fb0eb7ecdd3258dde75aba3e98109bd2bcc6c3.tar.gz | |
Adjust executable suffix checks for VMS
Message-Id: <200205311622.MAA21673@mailhub2.stratus.com>
p4raw-id: //depot/perl@16927
Diffstat (limited to 'pod/perlvar.pod')
| -rw-r--r-- | pod/perlvar.pod | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/pod/perlvar.pod b/pod/perlvar.pod index 9f23dcfad4..ae7261765b 100644 --- a/pod/perlvar.pod +++ b/pod/perlvar.pod @@ -1178,10 +1178,10 @@ following statements: # Build up a set of file names (not command names). use Config; - use File::Spec; - $this_perl = File::Spec->canonpath($^X); - $this_perl .= $Config{_ext} - unless $this_perl =~ m/$Config{_ext}([;\d]*)$/i; + $this_perl = $^X; + if ($^O ne 'VMS') + {$this_perl .= $Config{_exe} + unless $this_perl =~ m/$Config{_exe}$/i;} Because many operating systems permit anyone with read access to the Perl program file to make a copy of it, patch the copy, and @@ -1192,10 +1192,10 @@ this goal, and produce a pathname that can be invoked as a command or referenced as a file. use Config; - use File::Spec; - $secure_perl_path = File::Spec->canonpath($Config{perlpath}); - $secure_perl_path .= $Config{_ext} - unless $secure_perl_path =~ m/$Config{_ext}([;\d]*)$/i; + $secure_perl_path = $Config{perlpath}; + if ($^O ne 'VMS') + {$secure_perl_path .= $Config{_exe} + unless $secure_perl_path =~ m/$Config{_exe}$/i;} =item ARGV |