chiark / gitweb /
suppress boring twisted messages to syslog, too
[hippotat.git] / subst-sys-path
1 #!/usr/bin/perl -pi
2 next unless m{^#\@ };
3 my $ok = 1;
4 s{@(\w+)@}{ $ENV{$1} // ($ok=0, $&) }ge;
5 s{^#\@ }{} if $ok;