[scpubgit/Q-Branch.git] / maint / inplace

use strictures 2;
use autodie;

my ($cmd, $file, @args) = @ARGV;

my $input = do { local (@ARGV, $/) = $file; <> };

close STDOUT;
open STDOUT, '>', $file;

open $out, '|-', $cmd, @args;

print $out $input;

close $out;
Commit	Line	Data
9bcd623d	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;