[LON-CAPA-cvs] cvs: loncom /interface lonprintout.pm

[raeburn]

raeburn		Tue Jun 19 11:39:28 2018 EDT

  Modified files:              
    /loncom/interface	lonprintout.pm 
  Log:
  - Eliminate "Unescaped left brace in regex" errors in perl 5.26.
  
  
Index: loncom/interface/lonprintout.pm
diff -u loncom/interface/lonprintout.pm:1.661 loncom/interface/lonprintout.pm:1.662
--- loncom/interface/lonprintout.pm:1.661	Mon Jan 15 00:51:42 2018
+++ loncom/interface/lonprintout.pm	Tue Jun 19 11:39:26 2018
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Printout
 #
-# $Id: lonprintout.pm,v 1.661 2018/01/15 00:51:42 raeburn Exp $
+# $Id: lonprintout.pm,v 1.662 2018/06/19 11:39:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1957,7 +1957,7 @@
 	$result =~ s/(\\end\{document})/\\strut\\vspace\*{-4 mm}\\newline $copyright $end_of_student $1/;
     }
     $result =~ s/\$number_of_columns/$number_of_columns/g;
-    $result =~ s/(\\end\{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]{\\hrulefill})/$2$1/g;
+    $result =~ s/(\\end\{longtable}\s*)(\\strut\\newline\\noindent\\makebox\[\\textwidth\/$number_of_columns\]\[b\]\{\\hrulefill})/$2$1/g;
     $result =~ s/(\\end\{longtable}\s*)\\strut\\newline/$1/g;
 #-- LaTeX corrections     
     my $first_comment = index($result,'<!--',0);