Perl is no longer in base. Long live the port!

1 files changed, 0 insertions, 15 deletions

diff --git a/contrib/perl5/eg/uudecode b/contrib/perl5/eg/uudecode
deleted file mode 100644
index 3b3cb60..0000000
--- a/contrib/perl5/eg/uudecode
+++ /dev/null
@@ -1,15 +0,0 @@
-#!/usr/bin/perl
-while (<>) {
-    next unless ($mode,$file) = /^begin\s*(\d*)\s*(\S*)/;
-    open(OUT,"> $file") || die "Can't create $file: $!\n";
-    while (<>) {
-	    last if /^end/;
-	    next if /[a-z]/;
-	    next unless int((((ord() - 32) & 077) + 2) / 3) ==
-		    int(length() / 4);
-	    print OUT unpack("u", $_);
-    }
-    chmod oct($mode), $file;
-    eof() && die "Missing end: $file may be truncated.\n";
-}
-