--- liberror-perl-0.17.orig/debian/changelog +++ liberror-perl-0.17/debian/changelog @@ -0,0 +1,116 @@ +liberror-perl (0.17-1.2) unstable; urgency=medium + + * Non-maintainer upload. + * Fix "FTBFS with perl 5.22 in experimental (MakeMaker changes)": + use DESTDIR in debian/rules. + (Closes: #793529) + + -- gregor herrmann Wed, 26 Aug 2015 17:14:37 +0200 + +liberror-perl (0.17-1.1) unstable; urgency=low + + * Non-maintainer upload. + * apply fix for tests from upstream (closes: #711441) + + -- CSILLAG Tamas Sat, 07 Sep 2013 10:04:34 +0200 + +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 Sun, 2 Dec 2007 16:20:39 +0000 + +liberror-perl (0.15-8) unstable; urgency=low + + * New Maintainer (closes: #313634) + + -- Clint Burfoot 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 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 Fri, 5 Nov 2004 16:56:55 +0100 + +liberror-perl (0.15-5) unstable; urgency=low + + * New maintainer (closes: #210217) + + -- Luk Claes 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 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 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 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 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 Fri, 23 Feb 2001 19:34:20 +0100 + +liberror-perl (0.13-1) unstable; urgency=low + + * New upstream release (closes: #74890). + + -- Paolo Molaro Thu, 19 Oct 2000 14:00:24 +0200 + +liberror-perl (0.12-2) unstable; urgency=low + + * Renamed the source. + + -- Paolo Molaro Fri, 1 Oct 1999 08:58:11 +0200 + +error (0.12-1) unstable; urgency=low + + * Initial Release. + + -- Paolo Molaro Wed, 22 Sep 1999 14:33:11 +0200 --- liberror-perl-0.17.orig/debian/compat +++ liberror-perl-0.17/debian/compat @@ -0,0 +1 @@ +4 --- liberror-perl-0.17.orig/debian/control +++ liberror-perl-0.17/debian/control @@ -0,0 +1,21 @@ +Source: liberror-perl +Section: perl +Priority: optional +Maintainer: Clint Burfoot +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". --- liberror-perl-0.17.orig/debian/copyright +++ liberror-perl-0.17/debian/copyright @@ -0,0 +1,23 @@ +This package was debianized by Paolo Molaro on +Wed, 22 Sep 1999 14:33:11 +0200. + +The current maintainer is Clint Burfoot . + +It was downloaded from a CPAN mirror. + +Upstream Authors: Graham Barr and others. + +Copyright: + +# Copyright (c) 1997-8 Graham Barr . 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 +# and adapted by Jesse Glick . +# +# 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. --- liberror-perl-0.17.orig/debian/liberror-perl.docs +++ liberror-perl-0.17/debian/liberror-perl.docs @@ -0,0 +1 @@ +README --- liberror-perl-0.17.orig/debian/liberror-perl.install +++ liberror-perl-0.17/debian/liberror-perl.install @@ -0,0 +1 @@ +usr/share --- liberror-perl-0.17.orig/debian/rules +++ liberror-perl-0.17/debian/rules @@ -0,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 DESTDIR=$(CURDIR)/$(TMP_DIR) + 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 + +## ---------------------------------------------------------------------- --- liberror-perl-0.17.orig/debian/watch +++ liberror-perl-0.17/debian/watch @@ -0,0 +1,3 @@ +version=2 + +http://cpan.org/modules/by-category/02_Perl_Core_Modules/Error/UARUN/Error-(.*)\.tar\.gz --- liberror-perl-0.17.orig/lib/Error.pm +++ liberror-perl-0.17/lib/Error.pm @@ -302,6 +302,7 @@ sub run_clauses ($$$\@) { my($clauses,$err,$wantarray,$result) = @_; my $code = undef; + local $Error::THROWN = undef; $err = $Error::ObjectifyCallback->({'text' =>$err}) unless ref($err); @@ -634,11 +635,11 @@ } 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 @@ -735,11 +736,11 @@ that are used by, or are retrievable by the C 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 --- liberror-perl-0.17.orig/lib/Error/Simple.pm +++ liberror-perl-0.17/lib/Error/Simple.pm @@ -11,6 +11,7 @@ 1; __END__ + =head1 NAME Error::Simple - the simple error sub-class of Error --- liberror-perl-0.17.orig/t/08warndie.t +++ liberror-perl-0.17/t/08warndie.t @@ -74,9 +74,9 @@ }; my ( $linea, $lineb ) = ( $line + 2, $line + 3 ); -like( $s, qr/^A warning at $file line $linea: +like( $s, qr/^A warning at $file line $linea\.?: \tmain::__ANON__\(\) called at $file line $linekid -\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb +\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb $/, "warn \\n-terminated STDERR" ); is( $felloffcode, 1, "warn \\n-terminated felloffcode" ); @@ -86,9 +86,9 @@ }; ( $linea, $lineb ) = ( $line + 2, $line + 3 ); -like( $s, qr/^A warning at $file line $linea: +like( $s, qr/^A warning at $file line $linea\.?: \tmain::__ANON__\(\) called at $file line $linekid -\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb +\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb $/, "warn unterminated STDERR" ); is( $felloffcode, 1, "warn unterminated felloffcode" ); @@ -108,7 +108,7 @@ Full stack trace: \tmain::__ANON__\(\) called at $file line $linekid -\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb +\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb $/, "die \\n-terminated STDERR" ); is( $felloffcode, 0, "die \\n-terminated felloffcode" ); @@ -129,7 +129,7 @@ Full stack trace: \tmain::__ANON__\(\) called at $file line $linekid -\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb +\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb $/, "die unterminated STDERR" ); is( $felloffcode, 0, "die unterminated felloffcode" ); @@ -150,7 +150,7 @@ Full stack trace: \tmain::__ANON__\(\) called at $file line $linekid -\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb +\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb $/, "Error STDOUT" ); is( $felloffcode, 0, "Error felloffcode" ); @@ -189,9 +189,9 @@ }; ( $linea, $lineb ) = ( $line + 2, $line + 3 ); -like( $s, qr/^My custom warning here: A warning at $file line $linea: +like( $s, qr/^My custom warning here: A warning at $file line $linea\.?: \tmain::__ANON__\(\) called at $file line $linekid -\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb +\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb $/, "Custom warn STDERR" ); is( $felloffcode, 1, "Custom warn felloffcode" ); @@ -211,7 +211,7 @@ Full stack trace: \tmain::__ANON__\(\) called at $file line $linekid -\tmain::run_kid\('CODE\(0x[0-9a-f]+\)'\) called at $file line $lineb +\tmain::run_kid\('?CODE\(0x[0-9a-f]+\)'?\) called at $file line $lineb $/, "Custom die STDERR" ); is( $felloffcode, 0, "Custom die felloffcode" );