r29253 - in /branches/upstream/libautodie-perl/current: ./ inc/Module/ inc/Module/Install/ lib/ lib/autodie/ lib/autodie/exception/ t/ t/lib/pujHa/ t/lib/pujHa/ghach/
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Mon Jan 5 00:21:20 UTC 2009
Author: rmayorga-guest
Date: Mon Jan 5 00:21:16 2009
New Revision: 29253
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=29253
Log:
[svn-upgrade] Integrating new upstream version, libautodie-perl (1.998)
Removed:
branches/upstream/libautodie-perl/current/inc/Module/AutoInstall.pm
branches/upstream/libautodie-perl/current/inc/Module/Install/Include.pm
Modified:
branches/upstream/libautodie-perl/current/Changes
branches/upstream/libautodie-perl/current/MANIFEST
branches/upstream/libautodie-perl/current/META.yml
branches/upstream/libautodie-perl/current/Makefile.PL
branches/upstream/libautodie-perl/current/lib/Fatal.pm
branches/upstream/libautodie-perl/current/lib/autodie.pm
branches/upstream/libautodie-perl/current/lib/autodie/exception.pm
branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm
branches/upstream/libautodie-perl/current/t/exception_class.t
branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach.pm
branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach/Dotlh.pm
branches/upstream/libautodie-perl/current/t/mkdir.t
branches/upstream/libautodie-perl/current/t/truncate.t
branches/upstream/libautodie-perl/current/t/unlink.t
Modified: branches/upstream/libautodie-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/Changes?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/Changes (original)
+++ branches/upstream/libautodie-perl/current/Changes Mon Jan 5 00:21:16 2009
@@ -1,4 +1,25 @@
Revision history for autodie
+
+1.998 Sat Jan 3 11:19:53 AUSEDT 2009
+
+ * BUILD: Removed Module::AutoInstall, which previously
+ was loaded but not used, but currently doesn't actually
+ do what we want.
+
+ * TEST: We manually stringify $@ for one test in
+ exception_class.t to avoid a bug involving overloaded
+ classes containing apostrophies.
+
+ * TEST: unlink.t and mkdir.t avoid changing directories,
+ which could cause spurious failures when @INC includes
+ paths relative to the current working directory.
+
+ * DOCUMENTATION: Spurious "used only once" messages are
+ documented in Fatal's documentation (as well as autodie's).
+
+ * TEST: truncate.t has been updated to avoid incorrect
+ test failures on VMS machines. Many thanks to Craig A
+ Berry for the bug report and fix. (RT #42110)
1.997 Thu Dec 4 15:14:00 AUSEDT 2008
* TEST: Test::More 0.86 (and possibly 0.85) appears to
Modified: branches/upstream/libautodie-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/MANIFEST?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/MANIFEST (original)
+++ branches/upstream/libautodie-perl/current/MANIFEST Mon Jan 5 00:21:16 2009
@@ -1,11 +1,9 @@
AUTHORS
Changes
-inc/Module/AutoInstall.pm
inc/Module/Install.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
-inc/Module/Install/Include.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/Win32.pm
Modified: branches/upstream/libautodie-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/META.yml?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/META.yml (original)
+++ branches/upstream/libautodie-perl/current/META.yml Mon Jan 5 00:21:16 2009
@@ -24,4 +24,4 @@
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=autodie
license: http://dev.perl.org/licenses/
repository: http://github.com/pfenwick/autodie/tree/master
-version: 1.997
+version: 1.998
Modified: branches/upstream/libautodie-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/Makefile.PL?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/Makefile.PL (original)
+++ branches/upstream/libautodie-perl/current/Makefile.PL Mon Jan 5 00:21:16 2009
@@ -9,8 +9,6 @@
version_from( 'lib/autodie/exception.pm');
test_requires( 'Test::More');
author( 'Paul Fenwick <pjf at cpan.org>');
-
-include( 'Module::AutoInstall');
requires( 'perl' => '5.8.0');
recommends( 'IPC::System::Simple' => '0.12'); # For autodying system()
Modified: branches/upstream/libautodie-perl/current/lib/Fatal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/Fatal.pm?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/Fatal.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/Fatal.pm Mon Jan 5 00:21:16 2009
@@ -31,7 +31,7 @@
use constant MIN_IPC_SYS_SIMPLE_VER => 0.12;
# All the Fatal/autodie modules share the same version number.
-our $VERSION = '1.997';
+our $VERSION = '1.998';
our $Debug ||= 0;
@@ -83,6 +83,7 @@
':1.995' => [qw(:default)],
':1.996' => [qw(:default)],
':1.997' => [qw(:default)],
+ ':1.998' => [qw(:default)],
);
@@ -922,7 +923,7 @@
my ($class, @args) = @_;
# Find our exception class if we need it.
- my $exception_class =
+ my $exception_class =
$exception_class_for{$class} ||= $class->exception_class;
if (not $class_loaded{$exception_class}) {
@@ -949,7 +950,7 @@
confess "Failed to load '$exception_class'.\nThis may be a typo in the '$class->exception_class' method,\nor the '$exception_class' module may not exist.\n\n $E" if $E;
$class_loaded{$exception_class}++;
-
+
}
return $exception_class->new(@args);
@@ -1092,6 +1093,10 @@
makes it a scalar context, except when the C<:void> tag is used.
This problem does not exist in L<autodie>.
+"Used only once" warnings can be generated when C<autodie> or C<Fatal>
+is used with package filehandles (eg, C<FILE>). It's strongly recommended
+you use scalar filehandles instead.
+
=head1 AUTHOR
Original module by Lionel Cons (CERN).
Modified: branches/upstream/libautodie-perl/current/lib/autodie.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie.pm?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie.pm Mon Jan 5 00:21:16 2009
@@ -8,7 +8,7 @@
our $VERSION;
BEGIN {
- $VERSION = "1.997";
+ $VERSION = "1.998";
}
use constant ERROR_WRONG_FATAL => q{
Modified: branches/upstream/libautodie-perl/current/lib/autodie/exception.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie/exception.pm?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/exception.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/exception.pm Mon Jan 5 00:21:16 2009
@@ -14,7 +14,7 @@
use if ($] >= 5.010), overload => '~~' => "matches";
-our $VERSION = '1.997';
+our $VERSION = '1.998';
my $PACKAGE = __PACKAGE__; # Useful to have a scalar for hash keys.
Modified: branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm (original)
+++ branches/upstream/libautodie-perl/current/lib/autodie/exception/system.pm Mon Jan 5 00:21:16 2009
@@ -5,7 +5,7 @@
use base 'autodie::exception';
use Carp qw(croak);
-our $VERSION = '1.997';
+our $VERSION = '1.998';
my $PACKAGE = __PACKAGE__;
Modified: branches/upstream/libautodie-perl/current/t/exception_class.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/exception_class.t?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/exception_class.t (original)
+++ branches/upstream/libautodie-perl/current/t/exception_class.t Mon Jan 5 00:21:16 2009
@@ -42,21 +42,16 @@
### Tests with well-formed exception class (in Klingon)
-SKIP: {
- skip "Test::More >= 0.85 doesn't speak Klingon", 4
- if $Test::More::VERSION >= 0.85;
+my $open_success3 = eval {
+ use pujHa'ghach qw(open); #' <-- this makes my editor happy
+ open(my $fh, '<', NO_SUCH_FILE);
+ 1;
+};
- my $open_success3 = eval {
- use pujHa'ghach qw(open); #' <-- this makes my editor happy
- open(my $fh, '<', NO_SUCH_FILE);
- 1;
- };
+is($open_success3,undef,"Open should fail");
- is($open_success3,undef,"Open should fail");
+isnt("$@","",'$@ should not be empty');
- isnt($@,"",'$@ should not be empty');
+isa_ok($@, "pujHa'ghach::Dotlh", '$@ should be a Klingon exception');
- isa_ok($@, "pujHa'ghach::Dotlh", '$@ should be a Klingon exception');
-
- like($@, qr/Klingon exception/, '$@ should contain Klingon text');
-}
+like($@, qr/lujqu'/, '$@ should contain Klingon text');
Modified: branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach.pm?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach.pm (original)
+++ branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach.pm Mon Jan 5 00:21:16 2009
@@ -1,7 +1,7 @@
package pujHa'ghach;
# Translator notes: reH Hegh is Kligon for "always dying".
-# It was the original name for this testing pragma, but
+# It was the original name for this testing pragma, but
# it lacked an apostrophe, which better shows how Perl is
# useful in Klingon naming schemes.
Modified: branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach/Dotlh.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach/Dotlh.pm?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach/Dotlh.pm (original)
+++ branches/upstream/libautodie-perl/current/t/lib/pujHa/ghach/Dotlh.pm Mon Jan 5 00:21:16 2009
@@ -14,9 +14,43 @@
sub stringify {
my ($this) = @_;
- my $base_str = $this->SUPER::stringify;
+ my $error = $this->SUPER::stringify;
- return "Klingon exception: $base_str\n";
+ return "QaghHommeyHeylIjmo':\n" . # Due to your apparent minor errors
+ "$error\n" .
+ "lujqu'"; # Epic fail
+
+
+}
+
+1;
+
+__END__
+
+# The following was a really neat idea, but currently autodie
+# always pushes values in $! to format them, which loses the
+# Klingon translation.
+
+use Errno qw(:POSIX);
+use Scalar::Util qw(dualvar);
+
+my %translation_for = (
+ EPERM() => q{Dachaw'be'}, # You do not have permission
+ ENOENT() => q{De' vItu'laHbe'}, # I cannot find this information.
+);
+
+sub errno {
+ my ($this) = @_;
+
+ my $errno = int $this->SUPER::errno;
+
+ warn "In tlhIngan errno - $errno\n";
+
+ if ( my $tlhIngan = $translation_for{ $errno } ) {
+ return dualvar( $errno, $tlhIngan );
+ }
+
+ return $!;
}
Modified: branches/upstream/libautodie-perl/current/t/mkdir.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/mkdir.t?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/mkdir.t (original)
+++ branches/upstream/libautodie-perl/current/t/mkdir.t Mon Jan 5 00:21:16 2009
@@ -2,10 +2,7 @@
use strict;
use Test::More;
use FindBin qw($Bin);
-use constant TMPDIR => "mkdir_test_delete_me";
-
-# Change into the test directory
-chdir $Bin or plan skip_all => "Can't chdir to $Bin";
+use constant TMPDIR => "$Bin/mkdir_test_delete_me";
# Delete our directory if it's there
rmdir TMPDIR;
@@ -27,7 +24,6 @@
# Try to delete second time
if(rmdir TMPDIR) { plan skip_all => "Able to rmdir directory twice"; }
-
plan tests => 12;
Modified: branches/upstream/libautodie-perl/current/t/truncate.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/truncate.t?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/truncate.t (original)
+++ branches/upstream/libautodie-perl/current/t/truncate.t Mon Jan 5 00:21:16 2009
@@ -6,13 +6,14 @@
use IO::Handle;
my $tmpfh = tempfile();
+my $truncate_status;
eval {
- truncate($tmpfh, 0);
+ $truncate_status = truncate($tmpfh, 0);
};
-if ($@) {
- plan skip_all => 'Truncate not implemented on this system';
+if ($@ || !defined($truncate_status)) {
+ plan skip_all => 'Truncate not implemented or not working on this system';
}
plan tests => 3;
Modified: branches/upstream/libautodie-perl/current/t/unlink.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libautodie-perl/current/t/unlink.t?rev=29253&op=diff
==============================================================================
--- branches/upstream/libautodie-perl/current/t/unlink.t (original)
+++ branches/upstream/libautodie-perl/current/t/unlink.t Mon Jan 5 00:21:16 2009
@@ -2,10 +2,7 @@
use strict;
use Test::More;
use FindBin qw($Bin);
-use constant TMPFILE => "unlink_test_delete_me";
-
-# Change into the test directory
-chdir $Bin or plan skip_all => "Can't chdir to $Bin";
+use constant TMPFILE => "$Bin/unlink_test_delete_me";
# Create a file to practice unlinking
open(my $fh, ">", TMPFILE)
More information about the Pkg-perl-cvs-commits
mailing list