diff options
| author | Gisle Aas <gisle@activestate.com> | 2010-03-26 22:55:51 -0800 |
|---|---|---|
| committer | Gisle Aas <gisle@aas.no> | 2010-04-18 17:25:02 +0200 |
| commit | 321e50c78dc0d470de5f7359ebb2943e43def5bd (patch) | |
| tree | f01d69659789d398a0fa3ed0c704bf81807049b5 /patchlevel.h | |
| parent | 6348b76e16558421dd8599cc147a5c7f13fddbb9 (diff) | |
| download | perl-321e50c78dc0d470de5f7359ebb2943e43def5bd.tar.gz | |
Escape patch strings before embedding them in patchlevel.h
Diffstat (limited to 'patchlevel.h')
| -rw-r--r-- | patchlevel.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/patchlevel.h b/patchlevel.h index 7bd228b6f2..cb18e9f7dd 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}; } } |