This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[win32] Revert to keeping (some) constant strings as globals
[perl5.git] / embed.pl
index 127774e..6c4177d 100755 (executable)
--- a/embed.pl
+++ b/embed.pl
@@ -28,7 +28,7 @@ sub readvars(\%$$) {
        or die "embed.pl: Can't open $file: $!\n";
     while (<FILE>) {
        s/[ \t]*#.*//;          # Delete comments.
-       if (/PERLVARI?\($pre(\w+)/) {
+       if (/PERLVARI?C?\($pre(\w+)/) {
            $$syms{$1} = 1;
        }
     }
@@ -279,4 +279,4 @@ print EM <<'END';
 
 END
 
-close(EM);
\ No newline at end of file
+close(EM);