_60 & _04 - Add WRITE & CLOSE to TIEHANDLE

[p5sagit/p5-mst-13.2.git] / embed.pl

diff --git a/embed.pl b/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);