r3334 - in
/packages/libemail-filter-perl/branches/upstream/current: CHANGES
MANIFEST META.yml README lib/Email/Filter.pm t/pod-coverage.t t/pod.t
ntyni-guest at users.alioth.debian.org
ntyni-guest at users.alioth.debian.org
Thu Jul 27 19:52:56 UTC 2006
Author: ntyni-guest
Date: Thu Jul 27 19:52:55 2006
New Revision: 3334
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=3334
Log:
Load /tmp/tmp.ARDvY31482/libemail-filter-perl-1.03 into
packages/libemail-filter-perl/branches/upstream/current.
Added:
packages/libemail-filter-perl/branches/upstream/current/t/pod-coverage.t
packages/libemail-filter-perl/branches/upstream/current/t/pod.t
Modified:
packages/libemail-filter-perl/branches/upstream/current/CHANGES
packages/libemail-filter-perl/branches/upstream/current/MANIFEST
packages/libemail-filter-perl/branches/upstream/current/META.yml
packages/libemail-filter-perl/branches/upstream/current/README
packages/libemail-filter-perl/branches/upstream/current/lib/Email/Filter.pm
Modified: packages/libemail-filter-perl/branches/upstream/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-filter-perl/branches/upstream/current/CHANGES?rev=3334&op=diff
==============================================================================
--- packages/libemail-filter-perl/branches/upstream/current/CHANGES (original)
+++ packages/libemail-filter-perl/branches/upstream/current/CHANGES Thu Jul 27 19:52:55 2006
@@ -1,4 +1,8 @@
Changes file for Email::Filter
+
+1.03 2006-07-21
+
+ - fix link to emailproject.perl.org
1.02 2004-11-06
Modified: packages/libemail-filter-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-filter-perl/branches/upstream/current/MANIFEST?rev=3334&op=diff
==============================================================================
--- packages/libemail-filter-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libemail-filter-perl/branches/upstream/current/MANIFEST Thu Jul 27 19:52:55 2006
@@ -3,7 +3,9 @@
Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
-META.yml
README
t/Email-Filter.t
t/josey-nofold
+t/pod-coverage.t
+t/pod.t
+META.yml Module meta-data (added by MakeMaker)
Modified: packages/libemail-filter-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-filter-perl/branches/upstream/current/META.yml?rev=3334&op=diff
==============================================================================
--- packages/libemail-filter-perl/branches/upstream/current/META.yml (original)
+++ packages/libemail-filter-perl/branches/upstream/current/META.yml Thu Jul 27 19:52:55 2006
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Email-Filter
-version: 1.02
+version: 1.03
version_from: lib/Email/Filter.pm
installdirs: site
requires:
@@ -12,4 +12,4 @@
Test::More: 0.47
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+generated_by: ExtUtils::MakeMaker version 6.30
Modified: packages/libemail-filter-perl/branches/upstream/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-filter-perl/branches/upstream/current/README?rev=3334&op=diff
==============================================================================
--- packages/libemail-filter-perl/branches/upstream/current/README (original)
+++ packages/libemail-filter-perl/branches/upstream/current/README Thu Jul 27 19:52:55 2006
@@ -140,17 +140,18 @@
This calls the "reject" trigger. "exit" has no effect here.
pipe
- $mail->pipe('sendmail foo at bar.com');
+ $mail->pipe(qw[sendmail foo\@bar.com]);
Pipes the mail to an external program, returning the standard output
- from that program if "exit" has been set to false. This allows you to do
- things like
+ from that program if "exit" has been set to false. The program and each
+ of its arguments must be supplied in a list. This allows you to do
+ things like:
$mail->exit(0);
$mail->simple(Email::Simple->new($mail->pipe("spamassassin")));
$mail->exit(1);
- in the absence of decent "Mail::SpamAssassin" support. (Coming soon...)
+ in the absence of decent "Mail::SpamAssassin" support.
If the program returns a non-zero exit code, the behaviour is dependent
on the status of the "exit" flag. If this flag is set to true (the
@@ -170,5 +171,5 @@
Simon Cozens, "simon at cpan.org"
SEE ALSO
- http://pep,kwiki.org
+ http://emailproject.perl.org/wiki/Email::Filter
Modified: packages/libemail-filter-perl/branches/upstream/current/lib/Email/Filter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-filter-perl/branches/upstream/current/lib/Email/Filter.pm?rev=3334&op=diff
==============================================================================
--- packages/libemail-filter-perl/branches/upstream/current/lib/Email/Filter.pm (original)
+++ packages/libemail-filter-perl/branches/upstream/current/lib/Email/Filter.pm Thu Jul 27 19:52:55 2006
@@ -1,5 +1,4 @@
package Email::Filter;
-# $Id: Filter.pm,v 1.7 2004/11/06 19:00:31 cwest Exp $
use strict;
use Email::LocalDelivery;
@@ -11,7 +10,7 @@
use constant TEMPFAIL => 75;
use constant REJECTED => 100;
-$Email::Filter::VERSION = "1.02";
+$Email::Filter::VERSION = "1.03";
=head1 NAME
@@ -142,10 +141,10 @@
my $data;
{
- local $/;
- $data = exists $stuff{data} ? $stuff{data} : scalar <STDIN>;
- # shave any leading From_ line
- $data =~ s/^From .*?[\x0a\x0d]//
+ local $/;
+ $data = exists $stuff{data} ? $stuff{data} : scalar <STDIN>;
+ # shave any leading From_ line
+ $data =~ s/^From .*?[\x0a\x0d]//
}
my $obj = bless {
@@ -330,6 +329,12 @@
return;
}
+=head1 PERL EMAIL PROJECT
+
+This module is maintained by the Perl Email Project
+
+ L<http://emailproject.perl.org/wiki/Email::Filter>
+
=head1 COPYRIGHT
Copyright 2003, Simon Cozens <simon at cpan.org>
@@ -345,10 +350,6 @@
Simon Cozens, C<simon at cpan.org>
-=head1 SEE ALSO
-
-http://pep,kwiki.org
-
=cut
1;
Added: packages/libemail-filter-perl/branches/upstream/current/t/pod-coverage.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-filter-perl/branches/upstream/current/t/pod-coverage.t?rev=3334&op=file
==============================================================================
--- packages/libemail-filter-perl/branches/upstream/current/t/pod-coverage.t (added)
+++ packages/libemail-filter-perl/branches/upstream/current/t/pod-coverage.t Thu Jul 27 19:52:55 2006
@@ -1,0 +1,14 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod::Coverage 1.08";
+plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage"
+ if $@;
+
+# XXX: actually document or privatize or REALLY be trustme
+my $trustme = [ qw(fail_gracefully done_ok fail_badly noexit) ];
+
+all_pod_coverage_ok({
+ trustme => $trustme,
+ coverage_class => 'Pod::Coverage::CountParents'
+});
Added: packages/libemail-filter-perl/branches/upstream/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libemail-filter-perl/branches/upstream/current/t/pod.t?rev=3334&op=file
==============================================================================
--- packages/libemail-filter-perl/branches/upstream/current/t/pod.t (added)
+++ packages/libemail-filter-perl/branches/upstream/current/t/pod.t Thu Jul 27 19:52:55 2006
@@ -1,0 +1,6 @@
+#!perl -T
+
+use Test::More;
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+all_pod_files_ok();
More information about the Pkg-perl-cvs-commits
mailing list