r25349 - in /branches/upstream/libemail-filter-perl/current: Changes META.yml lib/Email/Filter.pm

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Fri Sep 19 12:13:15 2008
New Revision: 25349

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25349
Log:
[svn-upgrade] Integrating new upstream version, libemail-filter-perl (1.032)

Modified:
    branches/upstream/libemail-filter-perl/current/Changes
    branches/upstream/libemail-filter-perl/current/META.yml
    branches/upstream/libemail-filter-perl/current/lib/Email/Filter.pm

Modified: branches/upstream/libemail-filter-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-filter-perl/current/Changes?rev=25349&op=diff
==============================================================================
--- branches/upstream/libemail-filter-perl/current/Changes (original)
+++ branches/upstream/libemail-filter-perl/current/Changes Fri Sep 19 12:13:15 2008
@@ -1,4 +1,7 @@
 Changes file for Email::Filter
+
+1.032     2008-09-14
+          attempt to address https://rt.cpan.org/Ticket/Display.html?id=31018
 
 1.031     2007-03-22
           packaging improvements

Modified: branches/upstream/libemail-filter-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-filter-perl/current/META.yml?rev=25349&op=diff
==============================================================================
--- branches/upstream/libemail-filter-perl/current/META.yml (original)
+++ branches/upstream/libemail-filter-perl/current/META.yml Fri Sep 19 12:13:15 2008
@@ -1,9 +1,10 @@
 --- #YAML:1.0
 name:                Email-Filter
-version:             1.031
+version:             1.032
 abstract:            ~
 license:             perl
-generated_by:        ExtUtils::MakeMaker version 6.32
+author:              ~
+generated_by:        ExtUtils::MakeMaker version 6.44
 distribution_type:   module
 requires:     
     Class::Trigger:                0.08
@@ -12,5 +13,5 @@
     IPC::Run:                      0.77
     Test::More:                    0.47
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
-    version: 1.2
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: branches/upstream/libemail-filter-perl/current/lib/Email/Filter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libemail-filter-perl/current/lib/Email/Filter.pm?rev=25349&op=diff
==============================================================================
--- branches/upstream/libemail-filter-perl/current/lib/Email/Filter.pm (original)
+++ branches/upstream/libemail-filter-perl/current/lib/Email/Filter.pm Fri Sep 19 12:13:15 2008
@@ -10,7 +10,7 @@
 use constant TEMPFAIL  => 75;
 use constant REJECTED  => 100;
 
-$Email::Filter::VERSION = "1.031";
+$Email::Filter::VERSION = "1.032";
 
 =head1 NAME
 
@@ -84,8 +84,10 @@
 
 sub fail_gracefully {
     my $self = shift;
-    if ($self->{emergency} and $self->accept($self->{emergency})) {
-        $self->done_ok; # That worked.
+    our $FAILING_GRACEFULLY;
+    if ($self->{emergency} and ! $FAILING_GRACEFULLY) {
+      local $FAILING_GRACEFULLY = 1;
+      $self->done_ok if $self->accept($self->{emergency});
     }
     $self->fail_badly;
 }