From: Abhijit Menon-Sen <ams@wiw.org>
Date: Mon, 10 Feb 2003 03:44:07 +0000 (+0000)
Subject: No, we don't really want the utility scripts.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2ed3a706e76b03c0f51930be7d3e2717325b819a;p=p5sagit%2Fp5-mst-13.2.git

No, we don't really want the utility scripts.

p4raw-id: //depot/perl@18685
---

diff --git a/MANIFEST b/MANIFEST
index dc45a92..e09d60a 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -500,10 +500,6 @@ ext/MIME/Base64/Base64.xs	MIME::Base64 extension
 ext/MIME/Base64/Changes		MIME::Base64 extension
 ext/MIME/Base64/Makefile.PL	MIME::Base64 extension
 ext/MIME/Base64/QuotedPrint.pm	MIME::Base64 extension
-ext/MIME/Base64/encode-qp     	MIME::Base64 utility
-ext/MIME/Base64/decode-qp     	MIME::Base64 utility
-ext/MIME/Base64/encode-base64 	MIME::Base64 utility
-ext/MIME/Base64/decode-base64 	MIME::Base64 utility
 ext/MIME/Base64/t/base64.t	See whether MIME::Base64 works
 ext/MIME/Base64/t/quoted-print.t	See whether MIME::QuotedPrint works
 ext/MIME/Base64/t/unicode.t	See whether MIME::Base64 works
diff --git a/ext/MIME/Base64/Makefile.PL b/ext/MIME/Base64/Makefile.PL
index 93e3080..f5b4cb9 100644
--- a/ext/MIME/Base64/Makefile.PL
+++ b/ext/MIME/Base64/Makefile.PL
@@ -4,6 +4,5 @@ use ExtUtils::MakeMaker;
 WriteMakefile(
     NAME	 => 'MIME::Base64',
     VERSION_FROM => 'Base64.pm',
-    EXE_FILES    => [qw(encode-base64 decode-base64 encode-qp decode-qp)],
     dist         => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
 );
diff --git a/ext/MIME/Base64/decode-base64 b/ext/MIME/Base64/decode-base64
deleted file mode 100755
index 5c13c24..0000000
--- a/ext/MIME/Base64/decode-base64
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-use MIME::Base64 qw(decode_base64);
-
-while (<>) {
-    print decode_base64($_);
-}
-
diff --git a/ext/MIME/Base64/decode-qp b/ext/MIME/Base64/decode-qp
deleted file mode 100755
index 6b9663c..0000000
--- a/ext/MIME/Base64/decode-qp
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-use MIME::QuotedPrint qw(decode_qp);
-
-while (<>) {
-    print decode_qp($_);
-}
-
diff --git a/ext/MIME/Base64/encode-base64 b/ext/MIME/Base64/encode-base64
deleted file mode 100755
index 0ee70f8..0000000
--- a/ext/MIME/Base64/encode-base64
+++ /dev/null
@@ -1,13 +0,0 @@
-#!/usr/bin/perl
-
-use MIME::Base64 qw(encode_base64);
-
-my $buf = "";
-while (<>) {
-    $buf .= $_;
-    if (length($buf) >= 57) {
-	print encode_base64(substr($buf, 0, int(length($buf) / 57) * 57, ""));
-    }
-}
-
-print encode_base64($buf);
diff --git a/ext/MIME/Base64/encode-qp b/ext/MIME/Base64/encode-qp
deleted file mode 100755
index 7ceed3e..0000000
--- a/ext/MIME/Base64/encode-qp
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/usr/bin/perl
-
-use MIME::QuotedPrint qw(encode_qp);
-
-while (<>) {
-    print encode_qp($_);
-}
-