config: better examples/docs (update to how things are now)

[hippotat.git] / subst-sys-path

#!/usr/bin/perl -pi
next unless m{^#\@ };
my $ok = 1;
s{@(\w+)@}{ $ENV{$1} // ($ok=0, $&) }ge;
s{^#\@ }{} if $ok;