.gear/rules | 2 + .../tags/8d01917e0391275407a38e5699f5bee9d83d0617 | 13 ++++ .gear/tags/list | 1 + lib/MIME/Lite.pm | 47 +++++++-------- perl-MIME-Lite.spec | 60 ++++++++++++++++++++ 5 files changed, 98 insertions(+), 25 deletions(-) diff --git a/.gear/rules b/.gear/rules new file mode 100644 index 0000000..00d0102 --- /dev/null +++ b/.gear/rules @@ -0,0 +1,2 @@ +tar: @version@:. name=MIME-Lite-@version@ +diff: @version@:. . name=perl-MIME-Lite-@version@-@release@.patch diff --git a/.gear/tags/8d01917e0391275407a38e5699f5bee9d83d0617 b/.gear/tags/8d01917e0391275407a38e5699f5bee9d83d0617 new file mode 100644 index 0000000..6e3df97 --- /dev/null +++ b/.gear/tags/8d01917e0391275407a38e5699f5bee9d83d0617 @@ -0,0 +1,13 @@ +object 63eae634fa4ef847eb55c3bff1239d993aa943bb +type commit +tag 3.023 +tagger Alexey Tourbin 1227588131 +0300 + +3.023 +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.9 (GNU/Linux) + +iEYEABECAAYFAkkrgiMACgkQfBKgtDjnu0b41QCgqzhqbmStaELVgNyhVKDkIHhd +nnEAoNkRrTDb5dOPJ42d1qgTm5l3GweV +=FAes +-----END PGP SIGNATURE----- diff --git a/.gear/tags/list b/.gear/tags/list new file mode 100644 index 0000000..9b3099a --- /dev/null +++ b/.gear/tags/list @@ -0,0 +1 @@ +8d01917e0391275407a38e5699f5bee9d83d0617 3.023 diff --git a/lib/MIME/Lite.pm b/lib/MIME/Lite.pm index ebc5353..b2ddf9a 100644 --- a/lib/MIME/Lite.pm +++ b/lib/MIME/Lite.pm @@ -429,14 +429,16 @@ my @FieldOrder; ### See if we have File::Basename my $HaveFileBasename = 0; -if ( eval "require File::Basename" ) { # not affected by $PARANOID, core Perl +if ( require File::Basename ) { # not affected by $PARANOID, core Perl $HaveFileBasename = 1; push @Uses, "F$File::Basename::VERSION"; } ### See if we have/want MIME::Types my $HaveMimeTypes = 0; -if ( !$PARANOID and eval "require MIME::Types; MIME::Types->VERSION(1.004);" ) { +if ( !$PARANOID ) { + require MIME::Types; + MIME::Types->VERSION(1.004); $HaveMimeTypes = 1; push @Uses, "T$MIME::Types::VERSION"; } @@ -528,23 +530,20 @@ BEGIN { #------------------------------ -if ( !$PARANOID and eval "require Mail::Address" ) { +if ( !$PARANOID ) { + require Mail::Address; push @Uses, "A$Mail::Address::VERSION"; - eval q{ - sub extract_full_addrs { - my @ret=map { $_->format } Mail::Address->parse($_[0]); - return wantarray ? @ret : $ret[0] - } - sub extract_only_addrs { - my @ret=map { $_->address } Mail::Address->parse($_[0]); - return wantarray ? @ret : $ret[0] - } - }; ### q + *extract_full_addrs = sub { + my @ret=map { $_->format } Mail::Address->parse($_[0]); + return wantarray ? @ret : $ret[0] + }; + *extract_only_addrs = sub { + my @ret=map { $_->address } Mail::Address->parse($_[0]); + return wantarray ? @ret : $ret[0] + }; } else { - eval q{ - *extract_full_addrs=*my_extract_full_addrs; - *extract_only_addrs=*my_extract_only_addrs; - }; ### q + *extract_full_addrs=*my_extract_full_addrs; + *extract_only_addrs=*my_extract_only_addrs; } ### if #============================== @@ -559,12 +558,12 @@ if ( !$PARANOID and eval "require Mail::Address" ) { # Encode the given string using BASE64. # Unless paranoid, we try to load the real code before supplying our own. -if ( !$PARANOID and eval "require MIME::Base64" ) { +if ( !$PARANOID ) { + require MIME::Base64; import MIME::Base64 qw(encode_base64); push @Uses, "B$MIME::Base64::VERSION"; } else { - eval q{ - sub encode_base64 { + *encode_base64 = sub { my $res = ""; my $eol = "\n"; @@ -583,7 +582,6 @@ if ( !$PARANOID and eval "require MIME::Base64" ) { $res =~ s/(.{1,76})/$1$eol/g if (length $eol); return $res; } ### sub - } ### q } ### if #------------------------------ @@ -597,12 +595,12 @@ if ( !$PARANOID and eval "require MIME::Base64" ) { # # Unless paranoid, we try to load the real code before supplying our own. -if ( !$PARANOID and eval "require MIME::QuotedPrint" ) { +if ( !$PARANOID ) { + require MIME::QuotedPrint; import MIME::QuotedPrint qw(encode_qp); push @Uses, "Q$MIME::QuotedPrint::VERSION"; } else { - eval q{ - sub encode_qp { + *encode_qp = sub { my $res = shift; local($_); $res =~ s/([^ \t\n!-<>-~])/sprintf("=%02X", ord($1))/eg; ### rule #2,#3 @@ -617,7 +615,6 @@ if ( !$PARANOID and eval "require MIME::QuotedPrint" ) { $brokenlines =~ s/=\n$// unless length $res; "$brokenlines$res"; } ### sub - } ### q } ### if diff --git a/perl-MIME-Lite.spec b/perl-MIME-Lite.spec new file mode 100644 index 0000000..7140149 --- /dev/null +++ b/perl-MIME-Lite.spec @@ -0,0 +1,60 @@ +%define dist MIME-Lite +Name: perl-MIME-Lite +Version: 3.023 +Release: alt1 + +Summary: MIME::Lite - low-calorie MIME generator +License: GPL or Artistic +Group: Development/Perl + +URL: %CPAN %dist +Source: %dist-%version.tar +Patch: %name-%version-%release.patch + +BuildArch: noarch +Requires: sendmail-common + +# Automatically added by buildreq on Tue Nov 25 2008 +BuildRequires: perl-Email-Date-Format perl-MIME-Types perl-MailTools perl-Test-Pod sendmail-common + +%description +MIME::Lite is intended as a simple, standalone module for generating +(not parsing!) MIME messages... specifically, it allows you to output +a simple, decent single- or multi-part message with text or binary +attachments. It does not require that you have the Mail:: or MIME:: +modules installed, but will work with them if they are. + +%prep +%setup -q -n %dist-%version +%patch -p1 + +%build +%perl_vendor_build + +%install +%perl_vendor_install + +%files +%doc README +%perl_vendor_privlib/MIME* + +%changelog +* Tue Nov 25 2008 Alexey Tourbin 3.023-alt1 +- 3.021 -> 3.023 + +* Tue Jun 17 2008 Alexey Tourbin 3.021-alt1 +- 3.01 -> 3.021 + +* Sun Aug 27 2006 Alexey Tourbin 3.01-alt3 +- sync debian libmime-lite-perl_3.01-7.diff.gz +- clarified perl dependencies by removing eval wraps +- added dependency on sendmail-common + +* Sat Feb 19 2005 ALT QA Team Robot 3.01-alt2.1 +- Rebuilt with rpm-build-perl-0.5.1. + +* Wed Jun 02 2004 Denis Smirnov 3.01-alt2 +- Fixed summary and description + +* Thu Jan 22 2004 Denis Smirnov 3.01-alt1 +- Build for Sisyphus