Ver Fonte

Add support for environment variables.

Joe Clarke há 7 anos atrás
pai
commit
4b09d00de9
1 ficheiros alterados com 3 adições e 0 exclusões
  1. 3 0
      scripts/gen-eem.pl

+ 3 - 0
scripts/gen-eem.pl

@@ -37,6 +37,9 @@ foreach my $line (@contents) {
                 print OUT $line;
         } elsif ($line =~ /^!/) {
                 print OUT $line;
+	} elsif ($line =~ /^\@/) {
+		$line =~ s/^\@//;
+		print OUT $line;
         } else {
                 my $act = sprintf(" action %03d ", $action++);
                 print OUT $act . $line;