Change 31657 by [EMAIL PROTECTED] on 2007/07/25 19:02:44
Change stripRegex prototype to $$;$ because only one caller uses
the third argument.
Affected files ...
... //depot/perl/x2p/s2p.PL#27 edit
Differences ...
==== //depot/perl/x2p/s2p.PL#27 (text) ====
Index: perl/x2p/s2p.PL
--- perl/x2p/s2p.PL#26~31656~ 2007-07-25 05:56:56.000000000 -0700
+++ perl/x2p/s2p.PL 2007-07-25 12:02:44.000000000 -0700
@@ -747,7 +747,7 @@
# 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;
End of Patch.
