dist-3.0 is dead and gone. Mention actual state of affairs

[metaconfig.git] / dist-3.0at70 / pl / listedit.pl

diff --git a/dist-3.0at70/pl/listedit.pl b/dist-3.0at70/pl/listedit.pl
deleted file mode 100644 (file)
index 83a7fdb..0000000
--- a/dist-3.0at70/pl/listedit.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-;# $Id: listedit.pl,v 3.0.1.2 1993/08/27 14:40:57 ram Exp $
-;#
-;#  Copyright (c) 1991-1993, Raphael Manfredi
-;#  
-;#  You may redistribute only under the terms of the Artistic Licence,
-;#  as specified in the README file that comes with the distribution.
-;#  You may reuse parts of this distribution only within the terms of
-;#  that same Artistic Licence; a copy of which may be found at the root
-;#  of the source tree for dist 3.0.
-;#
-;# $Log: listedit.pl,v $
-;# Revision 3.0.1.2  1993/08/27  14:40:57  ram
-;# patch7: forgot to unlink temporary file
-;#
-;# Revision 3.0.1.1  1993/08/25  14:08:12  ram
-;# patch6: created
-;#
-;# Requires geteditor.pl
-;#
-# Allow user to inplace-edit a list of items held in an array
-sub listedit {
-       local(*list) = @_;
-       local($tmp) = "/tmp/dist.$$";
-       local($editor) = &geteditor;
-       open(TMP, ">$tmp") || die "Can't create $tmp: $!\n";
-       foreach $item (@list) {
-               print TMP $item, "\n";
-       }
-       close TMP;
-       system "$editor $tmp";
-       open(TMP, "$tmp") || die "Can't reopen $tmp: $!\n";
-       chop(@list = <TMP>);
-       close TMP;
-       unlink $tmp;
-}
-