mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

Escape patch strings before embedding them in patchlevel.h

Browse Source
This commit is contained in:
Gisle Aas 2010-03-26 22:55:51 -08:00 committed by Gisle Aas
parent 6348b76e16
commit 321e50c78d
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
patchlevel.h
View File

@ -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};
}
}