Line # Revision Author
1 3 ahitrov@rambler.ru #!/usr/bin/perl
2
3 ####################################
4 # make 'before-process' mtt argument
5 ####################################
6
7 use strict;
8 use warnings 'all';
9
10
11 print <<'EOM';
12 #% $STAMP = 0;
13 EOM
14
15 for (sort grep {/^MTT_/} keys %ENV) {
16 (my $key = $_) =~ s/^MTT_//;
17 $ENV{$_} =~ s/\\/\\\\/g;
18 $ENV{$_} =~ s/'/\\'/g;
19 print "#% my \$$key = '$ENV{$_}';\n";
20 }