bumped File::Find version to 1.16

[perl5.git] / patchlevel.h

diff --git a/patchlevel.h b/patchlevel.h
index 7bd228b..cb18e9f 100644 (file)
--- 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};
        }
     }