In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/321e50c78dc0d470de5f7359ebb2943e43def5bd?hp=6348b76e16558421dd8599cc147a5c7f13fddbb9>
- Log ----------------------------------------------------------------- commit 321e50c78dc0d470de5f7359ebb2943e43def5bd Author: Gisle Aas <[email protected]> Date: Fri Mar 26 22:55:51 2010 -0800 Escape patch strings before embedding them in patchlevel.h ----------------------------------------------------------------------- Summary of changes: patchlevel.h | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) 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}; } } -- Perl5 Master Repository
