mon-commit

[Jim T. <tr...@us...>]

Update of /cvsroot/mon/mon
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13617

Modified Files:
      Tag: mon-1-0-0pre1
	mon 
Log Message:
make esc_str escape spaces in order to be compatible with monperl-1-0-0pre1

Index: mon
===================================================================
RCS file: /cvsroot/mon/mon/mon,v
retrieving revision 1.4.2.2
retrieving revision 1.4.2.3
diff -C2 -d -r1.4.2.2 -r1.4.2.3
*** mon	17 Jun 2004 20:28:54 -0000	1.4.2.2
--- mon	18 Jun 2004 00:51:51 -0000	1.4.2.3
***************
*** 4852,4860 ****
      my $escstr = "";
  
      for (my $i = 0; $i < length ($str); $i++)
      {
      	my $c = substr ($str, $i, 1);
  
! 	if (ord ($c) < 32 ||
  	    ord ($c) > 126 ||
  	    $c eq "\"" ||
--- 4852,4862 ----
      my $escstr = "";
  
+     return $escstr if (!defined $str);
+ 
      for (my $i = 0; $i < length ($str); $i++)
      {
      	my $c = substr ($str, $i, 1);
  
! 	if (ord ($c) <= 32 ||
  	    ord ($c) > 126 ||
  	    $c eq "\"" ||