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

p4raw-id: //depot/perl@18685

diff --git a/MANIFEST b/MANIFEST
index dc45a92..e09d60a 100644 (file)
--- 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 (file)
--- 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 (executable)
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 (executable)
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 (executable)
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 (executable)
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($_);
-}
-