This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository liberror-perl.

commit 8ffbdfc51b861ad98853b0edfdcaf02dfa4cb7f5
Author: gregor herrmann <gre...@debian.org>
Date:   Sun Jul 17 16:46:48 2016 +0200

    Revert direct changes to the code.
    
    Both set of changes are not required anymore:
    - The problem from #180784 doesn't appear if the line is removed. Probably
      as a fix for CPAN RT#20643 in 0.17009.
    - The changes to the POD (minus in manpages) seem unncessary, at least
      nothing complains.
---
 lib/Error.pm | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/lib/Error.pm b/lib/Error.pm
index 4148b38..f0fa207 100644
--- a/lib/Error.pm
+++ b/lib/Error.pm
@@ -308,7 +308,6 @@ use vars qw(@EXPORT_OK @ISA %EXPORT_TAGS);
 sub run_clauses ($$$\@) {
     my($clauses,$err,$wantarray,$result) = @_;
     my $code = undef;
-    local $Error::THROWN = undef;
 
     $err = $Error::ObjectifyCallback->({'text' =>$err}) unless ref($err);
 
@@ -648,11 +647,11 @@ from doing so. See the "SEE ALSO" section below for 
better recommendations.
     }
     catch Error::IO with {
        my $E = shift;
-       print STDERR "File ", $E->{'\-file'}, " had a problem\n";
+       print STDERR "File ", $E->{'-file'}, " had a problem\n";
     }
     except {
        my $E = shift;
-       my $general_handler=sub {send_message $E->{\-description}};
+       my $general_handler=sub {send_message $E->{-description}};
        return {
            UserException1 => $general_handler,
            UserException2 => $general_handler
@@ -762,11 +761,11 @@ with the arguments that are passed to it's constructor. 
The elements
 that are used by, or are retrievable by the C<Error> class are listed
 below, other classes may add to these.
 
-       \-file
-       \-line
-       \-text
-       \-value
-       \-object
+       -file
+       -line
+       -text
+       -value
+       -object
 
 If C<-file> or C<-line> are not specified in the constructor arguments
 then these will be initialized with the file name and line number where

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/liberror-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits

Reply via email to