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