r60941 - in /branches/upstream/libtest-checkmanifest-perl/current: Changes META.yml lib/Test/CheckManifest.pm

[ansgar-guest at users.alioth.debian.org]

Author: ansgar-guest
Date: Sat Jul 31 06:23:55 2010
New Revision: 60941

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60941
Log:
[svn-upgrade] new version libtest-checkmanifest-perl (1.22)

Modified:
    branches/upstream/libtest-checkmanifest-perl/current/Changes
    branches/upstream/libtest-checkmanifest-perl/current/META.yml
    branches/upstream/libtest-checkmanifest-perl/current/lib/Test/CheckManifest.pm

Modified: branches/upstream/libtest-checkmanifest-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-checkmanifest-perl/current/Changes?rev=60941&op=diff
==============================================================================
--- branches/upstream/libtest-checkmanifest-perl/current/Changes (original)
+++ branches/upstream/libtest-checkmanifest-perl/current/Changes Sat Jul 31 06:23:55 2010
@@ -1,4 +1,7 @@
 Revision history for Perl extension Test::CheckManifest.
+
+1.22  Thu Jul 29 2010
+      + fix a bug that appears when there is no MANIFEST.SKIP
 
 1.21  Wed Feb 17 2010
       + return from sub when MANIFEST.SKIP does not exist

Modified: branches/upstream/libtest-checkmanifest-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-checkmanifest-perl/current/META.yml?rev=60941&op=diff
==============================================================================
--- branches/upstream/libtest-checkmanifest-perl/current/META.yml (original)
+++ branches/upstream/libtest-checkmanifest-perl/current/META.yml Sat Jul 31 06:23:55 2010
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Test-CheckManifest
-version:             1.21
+version:             1.22
 abstract:            Check if your Manifest matches your distro
 license:             artistic_2
 generated_by:        ExtUtils::MakeMaker version 6.31

Modified: branches/upstream/libtest-checkmanifest-perl/current/lib/Test/CheckManifest.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-checkmanifest-perl/current/lib/Test/CheckManifest.pm?rev=60941&op=diff
==============================================================================
--- branches/upstream/libtest-checkmanifest-perl/current/lib/Test/CheckManifest.pm (original)
+++ branches/upstream/libtest-checkmanifest-perl/current/lib/Test/CheckManifest.pm Sat Jul 31 06:23:55 2010
@@ -10,7 +10,7 @@
 use Test::Builder;
 use File::Find;
 
-our $VERSION = '1.21';
+our $VERSION = '1.22';
 
 my $test      = Test::Builder->new();
 my $test_bool = 1;
@@ -46,7 +46,9 @@
     my $bool     = 1;
     my $home     = Cwd::realpath( dirname(File::Spec->rel2abs($0)) . '/..' );
     my $manifest = Cwd::realpath( $home . '/MANIFEST' );
-    my $skip     = Cwd::realpath( $home . '/MANIFEST.SKIP' );
+    
+    my $skip;
+    eval { $skip     = Cwd::realpath( $home . '/MANIFEST.SKIP' ); 1; };
     
     my @missing_files = ();
     my @files_plus    = ();
@@ -194,7 +196,7 @@
 sub _read_skip {
     my ($skip, $msg, $bool) = @_;
 
-    return [] unless -e $skip;
+    return [] unless $skip and -e $skip;
     
     my @files;
     if( -e $skip and not open my $skip_fh, '<', $skip ) {