X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.pl;h=6c4177d60e19393200c9a2fce642dc0fe0d4a3f1;hb=1d603a678689f1e74cf73914a432b2a8d38be470;hp=127774e7d234b7d3ecbed0ca649b36effd023ba5;hpb=22239a37ce131e4f5341aee571f08aced283e16a;p=p5sagit%2Fp5-mst-13.2.git

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