From: Gisle Aas <gisle@activestate.com>
Date: Sat, 27 Mar 2010 06:55:51 +0000 (-0800)
Subject: Escape patch strings before embedding them in patchlevel.h
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=321e50c78dc0d470de5f7359ebb2943e43def5bd;p=p5sagit%2Fp5-mst-13.2.git

Escape patch strings before embedding them in patchlevel.h
---

diff --git a/patchlevel.h b/patchlevel.h
index 7bd228b..cb18e9f 100644
--- a/patchlevel.h
+++ b/patchlevel.h
@@ -92,6 +92,8 @@ my $seen=0;
 while (<PLIN>) {
     if (/\t,NULL/ and $seen) {
        while (my $c = shift @ARGV){
+	    $c =~ s|\\|\\\\|g;
+	    $c =~ s|"|\\"|g;
             print PLOUT qq{\t,"$c"\n};
        }
     }