X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=x2p%2Fs2p.PL;h=d1ce6ea45ed1ad299a56e8157a3f6098ef6f8568;hb=cd22a09c8c81e5e4c639c15ad19704a0d1e0c842;hp=0ac27f9d704b276884366693fb19a72b9e588f37;hpb=e2f7306727f6521febe2479c66526982cbb5e4f5;p=p5sagit%2Fp5-mst-13.2.git

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;