[win32] Revert to keeping (some) constant strings as globals

p4raw-id: //depot/win32/perl@349

1 files changed, 2 insertions, 2 deletions

diff --git a/embed.pl b/embed.pl
index 127774e7d2..6c4177d60e 100755
--- 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);