chiark
/
gitweb
/
~cjwatson
/
bin.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
my-debmirror: Mirror testing as well as unstable.
[bin.git]
/
sponge
1
#! /usr/bin/perl -w
2
use strict;
3
4
binmode STDIN;
5
undef $/;
6
my $input = <STDIN>;
7
open OUT, "> $ARGV[0]" or die "couldn't open $ARGV[0]: $!";
8
print OUT $input or die "couldn't write to $ARGV[0]: $!";
9
close OUT or die "couldn't close $ARGV[0]: $!";