chiark / gitweb /
superseded by moreutils
authorColin Watson <cjwatson@chiark.greenend.org.uk>
Tue, 3 Apr 2007 16:21:39 +0000 (16:21 +0000)
committerColin Watson <cjwatson@chiark.greenend.org.uk>
Tue, 3 Apr 2007 16:21:39 +0000 (16:21 +0000)
sponge [deleted file]

diff --git a/sponge b/sponge
deleted file mode 100755 (executable)
index 18d163c..0000000
--- a/sponge
+++ /dev/null
@@ -1,30 +0,0 @@
-#! /usr/bin/perl -w
-use strict;
-
-# Copyright (C) 2003 Colin Watson <cjwatson@debian.org>.
-#
-# Permission is hereby granted, free of charge, to any person
-# obtaining a copy of this software and associated documentation files
-# (the "Software"), to deal in the Software without restriction,
-# including without limitation the rights to use, copy, modify, merge,
-# publish, distribute, sublicense, and/or sell copies of the Software,
-# and to permit persons to whom the Software is furnished to do so,
-# subject to the following conditions:
-# 
-# The above copyright notice and this permission notice shall be
-# included in all copies or substantial portions of the Software.
-# 
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
-# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-# NONINFRINGEMENT.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE
-# FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF
-# CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
-# WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-
-binmode STDIN;
-undef $/;
-my $input = <STDIN>;
-open OUT, "> $ARGV[0]" or die "couldn't open $ARGV[0]: $!";
-print OUT $input or die "couldn't write to $ARGV[0]: $!";
-close OUT or die "couldn't close $ARGV[0]: $!";