CVSROOT: cvslog.pl - unescape args

[qboosh]

Author: qboosh                       Date: Tue Sep 30 18:29:55 2008 GMT
Module: CVSROOT                       Tag: HEAD
---- Log message:
- unescape args

---- Files affected:
CVSROOT:
   cvslog.pl (1.83 -> 1.84) 

---- Diffs:

================================================================
Index: CVSROOT/cvslog.pl
diff -u CVSROOT/cvslog.pl:1.83 CVSROOT/cvslog.pl:1.84
--- CVSROOT/cvslog.pl:1.83	Tue Sep 30 20:09:01 2008
+++ CVSROOT/cvslog.pl	Tue Sep 30 20:29:50 2008
@@ -165,6 +165,10 @@
   # we can use " ,, " sequence as it would be invalid in args
   $cmdargs =~ s/([^\\])[ ,]/$1 ,, /g;
   @input = split (/ ,, /, $cmdargs);
+  # unescape
+  for (my $i = 0; $i < @input; $i++) {
+    $input[$i] =~ s/\\(.)/$1/g;
+  }
 } else {
   @input = @ARGV;
 }
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/CVSROOT/cvslog.pl?r1=1.83&r2=1.84&f=u