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

#!/usr/bin/env perl

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
cd979d19	1	#!/usr/bin/env perl
cd979d19	2
9bcd623d	3	use strictures 2;
	4	use autodie;
	5
	6	my ($cmd, $file, @args) = @ARGV;
	7
	8	my $input = do { local (@ARGV, $/) = $file; <> };
	9
	10	close STDOUT;
	11	open STDOUT, '>', $file;
	12
	13	open $out, '\|-', $cmd, @args;
	14
	15	print $out $input;
	16
	17	close $out;