1 files changed, 0 insertions, 43 deletions
diff --git a/contrib/perl5/lib/abbrev.pl b/contrib/perl5/lib/abbrev.pl
deleted file mode 100644
index c505a6f..0000000
--- a/contrib/perl5/lib/abbrev.pl
+++ /dev/null
@@ -1,43 +0,0 @@
-;# Usage:
-;#	%foo = ();
-;#	&abbrev(*foo,LIST);
-;#	...
-;#	$long = $foo{$short};
-
-#
-# This library is no longer being maintained, and is included for backward
-# compatibility with Perl 4 programs which may require it.
-#
-# In particular, this should not be used as an example of modern Perl
-# programming techniques.
-#
-# Suggested alternative: Text::Abbrev
-#
-
-package abbrev;
-
-sub main'abbrev {
-    local(*domain) = @_;
-    shift(@_);
-    @cmp = @_;
-    local($[) = 0;
-    foreach $name (@_) {
-	@extra = split(//,$name);
-	$abbrev = shift(@extra);
-	$len = 1;
-	foreach $cmp (@cmp) {
-	    next if $cmp eq $name;
-	    while (@extra && substr($cmp,0,$len) eq $abbrev) {
-		$abbrev .= shift(@extra);
-		++$len;
-	    }
-	}
-	$domain{$abbrev} = $name;
-	while ($#extra >= 0) {
-	    $abbrev .= shift(@extra);
-	    $domain{$abbrev} = $name;
-	}
-    }
-}
-
-1;