Update of /cvsroot/mon/mon-client/Mon
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25422/Mon
Modified Files:
Client.pm
Log Message:
_un_esc_str shouldn't modify an undefined input. Bug reported by Ed Ravin.
Index: Client.pm
===================================================================
RCS file: /cvsroot/mon/mon-client/Mon/Client.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** Client.pm 18 Jun 2004 14:25:16 -0000 1.1.1.1
--- Client.pm 17 Feb 2005 20:52:49 -0000 1.2
***************
*** 1674,1677 ****
--- 1674,1679 ----
my $str = shift;
+ return "" unless (defined($str));
+
$str =~ s{\\([0-9a-f]{2})}{chr(hex($1))}eg;
|