Tests for -X overload on File::stat.

[p5sagit/p5-mst-13.2.git] / x2p / s2p.PL

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;