projects
/
dbsrgits/SQL-Abstract.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
d8866bdf837c40f6ec4a84a944fe78eb2163748c
[dbsrgits/SQL-Abstract.git]
/
maint
/
inplace
1
use strictures 2;
2
use autodie;
3
4
my ($cmd, $file, @args) = @ARGV;
5
6
my $input = do { local (@ARGV, $/) = $file; <> };
7
8
close STDOUT;
9
open STDOUT, '>', $file;
10
11
open $out, '|-', $cmd, @args;
12
13
print $out $input;
14
15
close $out;