diff options
| author | Craig A. Berry <craigberry@mac.com> | 2002-04-15 16:48:36 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-04-16 02:16:35 +0000 |
| commit | 9ae2b9a01756a2a2ea4071ab263cdb052d634e1a (patch) | |
| tree | 1045589d70fded42e615dc5146906ca643106985 /x2p | |
| parent | c72515e3b3831d7662a8502dab05d997460b04a5 (diff) | |
| download | perl-9ae2b9a01756a2a2ea4071ab263cdb052d634e1a.tar.gz | |
s2p fix for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <a05101500b8e13f80e770@[172.16.52.1]>
p4raw-id: //depot/perl@15941
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/s2p.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/x2p/s2p.PL b/x2p/s2p.PL index 9a084f9ce5..9b62caac9c 100644 --- a/x2p/s2p.PL +++ b/x2p/s2p.PL @@ -43,7 +43,7 @@ $Config{perlpath} print OUT <<'!NO!SUBS!'; -$0 =~ s/^.*?(\w+)$/$1/; +$0 =~ s/^.*?(\w+)[\.\w]*$/$1/; # (p)sed - a stream editor # History: Aug 12 2000: Original version. @@ -1795,7 +1795,7 @@ if( $doGenerate ){ #!$perlpath -w eval 'exec $perlpath -S \$0 \${1+"\$@"}' if 0; -\$0 =~ s/^.*?(\\w+)\$/\$1/; +\$0 =~ s/^.*?(\\w+)\[\\.\\w+\]*\$/\$1/; use strict; use Symbol; |