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

p4raw-id: //depot/perl@18685

5 files changed, 0 insertions, 38 deletions

diff --git a/ext/MIME/Base64/Makefile.PL b/ext/MIME/Base64/Makefile.PL
index 93e30806ec..f5b4cb9fe5 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 5c13c244dc..0000000000
--- 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 6b9663ca5a..0000000000
--- 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 0ee70f87e3..0000000000
--- 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 7ceed3ecd7..0000000000
--- 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($_);
-}
-