diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2007-07-25 19:02:44 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2007-07-25 19:02:44 +0000 |
| commit | b588327ed1e1ecf1e38d4a4782599a7ac98346c7 (patch) | |
| tree | e0ca34db0357f4d9c3bdfa608cda85009d73f4ab /x2p | |
| parent | e2f7306727f6521febe2479c66526982cbb5e4f5 (diff) | |
| download | perl-b588327ed1e1ecf1e38d4a4782599a7ac98346c7.tar.gz | |
Change stripRegex prototype to $$;$ because only one caller uses
the third argument.
p4raw-id: //depot/perl@31657
Diffstat (limited to 'x2p')
| -rw-r--r-- | x2p/s2p.PL | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/x2p/s2p.PL b/x2p/s2p.PL index 0ac27f9d70..d1ce6ea45e 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; |