Change stripRegex prototype to $$;$ because only one caller uses

the third argument.

p4raw-id: //depot/perl@31657

diff --git a/x2p/s2p.PL b/x2p/s2p.PL
index 0ac27f9..d1ce6ea 100644 (file)
--- a/x2p/s2p.PL
+++ b/x2p/s2p.PL
@@ -747,7 +747,7 @@ sub Comment($$$$$$){
 # part of s///, trailing spaces have to be kept as the initial
 # part of the replacement string.
 #
-sub stripRegex($$$){
+sub stripRegex($$;$){
     my( $del, $sref, $sub ) = @_;
     my $regex = $del;
     print "stripRegex:$del:$$sref:\n" if $useDEBUG;