[LON-CAPA-cvs] cvs: loncom /build lpml_parse.pl

harris41 lon-capa-cvs@mail.lon-capa.org
Fri, 22 Mar 2002 02:09:41 -0000


harris41		Thu Mar 21 21:09:41 2002 EDT

  Modified files:              
    /loncom/build	lpml_parse.pl 
  Log:
  do not trash character before escape backslash within build tag
  
  
Index: loncom/build/lpml_parse.pl
diff -u loncom/build/lpml_parse.pl:1.41 loncom/build/lpml_parse.pl:1.42
--- loncom/build/lpml_parse.pl:1.41	Thu Mar 21 20:55:04 2002
+++ loncom/build/lpml_parse.pl	Thu Mar 21 21:09:41 2002
@@ -3,7 +3,7 @@
 # The LearningOnline Network with CAPA
 # lpml_parse.pl - Linux Packaging Markup Language parser
 #
-# $Id: lpml_parse.pl,v 1.41 2002/03/22 01:55:04 harris41 Exp $
+# $Id: lpml_parse.pl,v 1.42 2002/03/22 02:09:41 harris41 Exp $
 #
 # Written by Scott Harrison, harris41@msu.edu
 #
@@ -1455,7 +1455,7 @@
     if ($text) {
 	$parser->get_tag('/build');
 	$build=$sourceroot.'/'.$text.';'.$tokeninfo[2]{'trigger'};
-	$build=~s/[^\\]\\\s+//g; # allow for having lines split onto new lines
+	$build=~s/([^\\])\\\s+/$1/g; # allow for lines split onto new lines
     }
     return '';
 }