From 9ae2b9a01756a2a2ea4071ab263cdb052d634e1a Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Mon, 15 Apr 2002 16:48:36 -0500
Subject: s2p fix for VMS    From: "Craig A. Berry" <craigberry@mac.com>   
 Message-Id: <a05101500b8e13f80e770@[172.16.52.1]>

p4raw-id: //depot/perl@15941
---
 x2p/s2p.PL | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'x2p')

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;
-- 
cgit v1.2.1