From: Abhijit Menon-Sen <ams@wiw.org>
Date: Wed, 25 Jul 2007 19:02:44 +0000 (+0000)
Subject: Change stripRegex prototype to $$;$ because only one caller uses
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b588327ed1e1ecf1e38d4a4782599a7ac98346c7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;