view bin/@ @ 4285:5c5fc08f8113

<oerjan> sed -i \'2s!s/!s/no\\+dl/nooodl/;s/!\' bin/?
author HackBot
date Tue, 14 Jan 2014 00:55:13 +0000
parents e037173e0012
children 1e110f9d6e37
line wrap: on
line source

#!/usr/bin/perl -w
$_ = join " ", @ARGV; if (s/no+dl/nooodl/;s/^([^ ]*) +([^ ]*) +//) { print "$1: "; exec $2, $_; }