This is an automated email from the git hooks/post-receive script.
gregoa pushed a commit to branch master
in repository liberror-perl.
commit 5ade05f2f259a47b7bfb74653e233086c1c047e2
Merge: 63d8f0c 2e0e258
Author: Clint Burfoot <cl...@burfoot.info>
Date: Sun Dec 2 16:20:39 2007 +0000
Imported Debian patch 0.17-1
Build.PL | 19 ++
ChangeLog | 153 ++++++++++
Error.ppd | 10 -
MANIFEST | 30 +-
META.yml | 25 ++
Makefile.PL | 31 +-
README | 1 -
debian/changelog | 10 +
debian/control | 7 +-
debian/copyright | 4 +-
debian/rules | 2 +-
example => examples/example.pl | 0
examples/next-in-loop/Error.pm-eval.pl | 40 +++
examples/next-in-loop/Error.pm-next-label.pl | 38 +++
.../next-in-loop/Error.pm-next-out-of-catch.pl | 43 +++
examples/next-in-loop/Error.pm-next.pl | 37 +++
examples/next-in-loop/README | 3 +
examples/warndie.pl | 23 ++
inc/Test/Run/Builder.pm | 65 +++++
Error.pm => lib/Error.pm | 315 +++++++++++++++++++--
lib/Error/Simple.pm | 54 ++++
t/03throw-non-Error.t | 32 +++
t/04use-base-Error-Simple.t | 18 ++
t/05text-errors-with-file-handles.t | 52 ++++
t/06customize-text-throw.t | 66 +++++
t/07try-in-obj-destructor.t | 42 +++
t/08warndie.t | 219 ++++++++++++++
t/09dollar-at.t | 36 +++
t/10throw-in-catch.t | 41 +++
t/11rethrow.t | 50 ++++
t/12wrong-error-var.t | 37 +++
t/lib/MyDie.pm | 19 ++
t/pod-coverage.t | 6 +
t/pod.t | 6 +
34 files changed, 1462 insertions(+), 72 deletions(-)
diff --cc debian/changelog
index 4885cf0,0000000..d1b7d59
mode 100644,000000..100644
--- a/debian/changelog
+++ b/debian/changelog
@@@ -1,90 -1,0 +1,100 @@@
++liberror-perl (0.17-1) unstable; urgency=low
++
++ * New upstream version (closes: #383606)
++ * debian/rules: use CURDIR instead of PWD (closes: #390482)
++ * debian/copyright: update copy of author's copyright
++ * debian/control: new standards version, debhelper dependency
++ * lib/Error/Simple.pm: manpage fix to POD
++
++ -- Clint Burfoot <cl...@burfoot.info> Sun, 2 Dec 2007 16:20:39 +0000
++
+liberror-perl (0.15-8) unstable; urgency=low
+
+ * New Maintainer (closes: #313634)
+
+ -- Clint Burfoot <cl...@myinternet.com.au> Thu, 13 Oct 2005 18:20:39 +1000
+
+liberror-perl (0.15-7) unstable; urgency=low
+
+ * Set maintainer to Debian QA Group
+ * Updated Standards-Version
+ * Removed version in versioned build-dep on debhelper
+
+ -- Luk Claes <l...@debian.org> Sat, 10 Sep 2005 09:45:39 +0000
+
+liberror-perl (0.15-6) unstable; urgency=low
+
+ * debian/watch: added
+ * Error.pm: - as minus sign for manpage
+
+ -- Luk Claes <luk.cl...@ugent.be> Fri, 5 Nov 2004 16:56:55 +0100
+
+liberror-perl (0.15-5) unstable; urgency=low
+
+ * New maintainer (closes: #210217)
+
+ -- Luk Claes <luk.cl...@ugent.be> Wed, 10 Sep 2003 14:43:36 +0200
+
+liberror-perl (0.15-4) unstable; urgency=low
+
+ * debian/rules: overhauled completely
+ * debian/rules: moved debhelper compatibility level setting to
+ 'debian/compat' per latest debhelper best practices
+ * debian/rules: upgraded to debhelper v4
+ * debian/control: overhauled completely
+ * debian/control: changed build dependency on 'debhelper' to '(>= 4.1)'
+ * debian/control: updated sections according to latest archive changes:
+ - 'liberror-perl' from 'interpreters' to 'perl'
+ * debian/control: updated short description and long description
+ * debian/control: upgraded to Debian Policy 3.6.0 (no changes)
+
+ -- Ardo van Rangelrooij <a...@debian.org> Sat, 6 Sep 2003 16:54:47 -0500
+
+liberror-perl (0.15-3) unstable; urgency=low
+
+ * New maintainer
+ (closes: Bug#206881)
+ - no other changes yet
+
+ -- Ardo van Rangelrooij <a...@debian.org> Sun, 24 Aug 2003 19:24:10 -0500
+
+liberror-perl (0.15-2) unstable; urgency=low
+
+ * Include pointer to the perl licenses even if upstream doesn't
+ include them in the source (closes: bug#157579).
+ * Build package in binary-indep (closes: bug#157476).
+ * Included fix for bug in otherwise clause (closes: bug#180784).
+ * Changed section.
+
+ -- Paolo Molaro <lu...@debian.org> Sun, 8 Jun 2003 15:31:26 +0200
+
+liberror-perl (0.15-1) unstable; urgency=low
+
+ * New upstream release (Closes: bug#136365, bug#150105).
+
+ -- Paolo Molaro <lu...@debian.org> Sat, 6 Jul 2002 16:15:06 +0200
+
+liberror-perl (0.13-2) unstable; urgency=low
+
+ * Package cleanup.
+ * Updated to the new perl and debian policy.
+
+ -- Paolo Molaro <lu...@debian.org> Fri, 23 Feb 2001 19:34:20 +0100
+
+liberror-perl (0.13-1) unstable; urgency=low
+
+ * New upstream release (closes: #74890).
+
+ -- Paolo Molaro <lu...@debian.org> Thu, 19 Oct 2000 14:00:24 +0200
+
+liberror-perl (0.12-2) unstable; urgency=low
+
+ * Renamed the source.
+
+ -- Paolo Molaro <lu...@debian.org> Fri, 1 Oct 1999 08:58:11 +0200
+
+error (0.12-1) unstable; urgency=low
+
+ * Initial Release.
+
+ -- Paolo Molaro <lu...@debian.org> Wed, 22 Sep 1999 14:33:11 +0200
diff --cc debian/control
index 9d1a066,0000000..1658772
mode 100644,000000..100644
--- a/debian/control
+++ b/debian/control
@@@ -1,20 -1,0 +1,21 @@@
+Source: liberror-perl
+Section: perl
+Priority: optional
- Maintainer: Clint Burfoot <cl...@myinternet.com.au>
- Standards-Version: 3.6.2
- Build-Depends-Indep: debhelper, perl
++Maintainer: Clint Burfoot <cl...@burfoot.info>
++Standards-Version: 3.7.2
++Build-Depends-Indep: perl
++Build-Depends: debhelper (>= 4.0.0)
+
+Package: liberror-perl
+Section: perl
+Priority: optional
+Architecture: all
+Depends: ${perl:Depends}
+Description: Perl module for error/exception handling in an OO-ish way
+ This module provides two interfaces. Firstly "Error" provides a
+ procedural interface to exception handling. Secondly "Error" is a
+ base class for errors/exceptions that can either be thrown, for
+ subsequent catch, or can simply be recorded.
+ .
+ Errors in the class "Error" should not be thrown directly, but the
+ user should throw errors from a sub-class of "Error".
diff --cc debian/copyright
index de3e0e0,0000000..2c84d7a
mode 100644,000000..100644
--- a/debian/copyright
+++ b/debian/copyright
@@@ -1,21 -1,0 +1,23 @@@
+This package was debianized by Paolo Molaro <lu...@debian.org> on
+Wed, 22 Sep 1999 14:33:11 +0200.
+
++The current maintainer is Clint Burfoot <cl...@burfoot.info>.
++
+It was downloaded from a CPAN mirror.
+
+Upstream Authors: Graham Barr <gb...@ti.com> and others.
+
+Copyright:
+
- # Copyright (c) 1995 Graham Barr <gb...@ti.com>. All rights reserved.
++# Copyright (c) 1997-8 Graham Barr <gb...@ti.com>. All rights reserved.
+# This program is free software; you can redistribute it and/or
+# modify it under the same terms as Perl itself.
+#
+# Based on my original Error.pm, and Exceptions.pm by Peter Seibel
+# <pe...@weblogic.com> and adapted by Jesse Glick <jgl...@sig.bsh.com>.
+#
+# but modified ***significantly***
+
+You can find the distribution terms for perl in /usr/share/doc/perl/copyright
+and the actual licenses in /usr/share/common-licenses/Artistic and
+/usr/share/common-licenses/GPL.
diff --cc debian/rules
index 08de792,0000000..00805ba
mode 100755,000000..100755
--- a/debian/rules
+++ b/debian/rules
@@@ -1,60 -1,0 +1,60 @@@
+#!/usr/bin/make -f
+## ----------------------------------------------------------------------
+## debian/rules : package script for liberror-perl
+## ----------------------------------------------------------------------
+
+## ----------------------------------------------------------------------
+## uncomment this to turn on verbose mode
+#export DH_VERBOSE=1
+
+## ----------------------------------------------------------------------
+TMP_DIR = debian/tmp
+
+## ----------------------------------------------------------------------
+## targets
+
+clean:
+ dh_testdir
+ dh_testroot
+ [ ! -f Makefile ] || $(MAKE) realclean
+ dh_clean
+ rm -f build-stamp install-stamp
+
+build: build-stamp
+build-stamp:
+ dh_testdir
+ perl Makefile.PL INSTALLDIRS=vendor
+ $(MAKE) OPTIMIZE="-O2 -g -Wall"
+ $(MAKE) test
+ touch build-stamp
+
+install: install-stamp
+install-stamp: build
+ dh_testdir
+ dh_testroot
+ dh_clean -k
+ dh_installdirs
- $(MAKE) install PREFIX=$(PWD)/$(TMP_DIR)/usr
++ $(MAKE) install PREFIX=$(CURDIR)/$(TMP_DIR)/usr
+ touch install-stamp
+
+binary-indep: build install
+ dh_testdir
+ dh_testroot
+ dh_install --sourcedir=$(TMP_DIR)
+ dh_installdocs
+ dh_installchangelogs ChangeLog
+ dh_compress
+ dh_fixperms
+ dh_installdeb
+ dh_perl
+ dh_gencontrol
+ dh_md5sums
+ dh_builddeb
+
+binary-arch:
+
+binary: binary-indep binary-arch
+
+.PHONY: clean build install binary-indep binary-arch binary
+
+## ----------------------------------------------------------------------
diff --cc lib/Error.pm
index dbf3a8b,7f37fe9..db2ded7
--- a/lib/Error.pm
+++ b/lib/Error.pm
@@@ -269,9 -302,8 +302,9 @@@ use vars qw(@EXPORT_OK @ISA %EXPORT_TAG
sub run_clauses ($$$\@) {
my($clauses,$err,$wantarray,$result) = @_;
my $code = undef;
+ local $Error::THROWN = undef;
- $err = new Error::Simple($err) unless ref($err);
+ $err = $Error::ObjectifyCallback->({'text' =>$err}) unless ref($err);
CATCH: {
diff --cc lib/Error/Simple.pm
index 0000000,35ad5b9..a4ba72f
mode 000000,100644..100644
--- a/lib/Error/Simple.pm
+++ b/lib/Error/Simple.pm
@@@ -1,0 -1,53 +1,54 @@@
+ # Error.pm
+ #
+ # Copyright (c) 2006 Shlomi Fish <shlo...@iglu.org.il>. All rights reserved.
+ # This program is free software; you can redistribute it and/or
+ # modify it under the terms of the MIT/X11 license.
+
+ use strict;
+ use warnings;
+
+ use Error;
+
+ 1;
+ __END__
++
+ =head1 NAME
+
+ Error::Simple - the simple error sub-class of Error
+
+ =head1 SYNOPSIS
+
+ use base 'Error::Simple';
+
+ =head1 DESCRIPTION
+
+ The only purpose of this module is to allow one to say:
+
+ use base 'Error::Simple';
+
+ and the only thing it does is "use" Error.pm. Refer to the documentation
+ of L<Error> for more information about Error::Simple.
+
+ =head1 METHODS
+
+ =head2 Error::Simple->new($text [, $value])
+
+ Constructs an Error::Simple with the text C<$text> and the optional value
+ C<$value>.
+
+ =head2 $err->stringify()
+
+ Error::Simple overloads this method.
+
+ =head1 KNOWN BUGS
+
+ None.
+
+ =head1 AUTHORS
+
+ Shlomi Fish ( C<< shlo...@iglu.org.il >> )
+
+ =head1 SEE ALSO
+
+ L<Error>
+
--
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
