Hello community,

here is the log from the commit of package perl-Path-Tiny for openSUSE:Factory 
checked in at 2015-06-30 10:19:11
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Path-Tiny (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Path-Tiny.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Path-Tiny"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Path-Tiny/perl-Path-Tiny.changes    
2015-04-15 16:23:27.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Path-Tiny.new/perl-Path-Tiny.changes       
2015-06-30 10:19:12.000000000 +0200
@@ -1,0 +2,21 @@
+Mon Jun 29 01:27:23 UTC 2015 - [email protected]
+
+- updated to 0.070
+   see /usr/share/doc/packages/perl-Path-Tiny/Changes
+
+  0.070     2015-06-28 13:50:16-04:00 America/New_York
+  
+      - No changes from 0.069
+  
+  0.069     2015-06-18 18:09:44-04:00 America/New_York (TRIAL RELEASE)
+  
+      [CHANGED]
+  
+      - The 'copy' menthod now returns the object for the copied file
+  
+      [FIXED]
+  
+      - The 'visit' method only dereferences the callback return value
+        for scalar refs, avoiding some common bugs
+
+-------------------------------------------------------------------

Old:
----
  Path-Tiny-0.068.tar.gz

New:
----
  Path-Tiny-0.070.tar.gz
  cpanspec.yml

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Path-Tiny.spec ++++++
--- /var/tmp/diff_new_pack.82GXie/_old  2015-06-30 10:19:13.000000000 +0200
+++ /var/tmp/diff_new_pack.82GXie/_new  2015-06-30 10:19:13.000000000 +0200
@@ -17,14 +17,15 @@
 
 
 Name:           perl-Path-Tiny
-Version:        0.068
+Version:        0.070
 Release:        0
 %define cpan_name Path-Tiny
 Summary:        File path utility
 License:        Apache-2.0
 Group:          Development/Libraries/Perl
 Url:            http://search.cpan.org/dist/Path-Tiny/
-Source:         
http://www.cpan.org/authors/id/D/DA/DAGOLDEN/%{cpan_name}-%{version}.tar.gz
+Source0:        
http://www.cpan.org/authors/id/D/DA/DAGOLDEN/%{cpan_name}-%{version}.tar.gz
+Source1:        cpanspec.yml
 BuildArch:      noarch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 BuildRequires:  perl
@@ -81,6 +82,6 @@
 
 %files -f %{name}.files
 %defattr(-,root,root,755)
-%doc Changes CONTRIBUTING.mkdn LICENSE perlcritic.rc README
+%doc Changes CONTRIBUTING.mkdn LICENSE README
 
 %changelog

++++++ Path-Tiny-0.068.tar.gz -> Path-Tiny-0.070.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/Changes new/Path-Tiny-0.070/Changes
--- old/Path-Tiny-0.068/Changes 2015-03-24 01:43:17.000000000 +0100
+++ new/Path-Tiny-0.070/Changes 2015-06-28 19:50:34.000000000 +0200
@@ -1,5 +1,20 @@
 Revision history for Path-Tiny
 
+0.070     2015-06-28 13:50:16-04:00 America/New_York
+
+    - No changes from 0.069
+
+0.069     2015-06-18 18:09:44-04:00 America/New_York (TRIAL RELEASE)
+
+    [CHANGED]
+
+    - The 'copy' menthod now returns the object for the copied file
+
+    [FIXED]
+
+    - The 'visit' method only dereferences the callback return value
+      for scalar refs, avoiding some common bugs
+
 0.068     2015-03-23 20:42:56-04:00 America/New_York
 
     [META]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/MANIFEST new/Path-Tiny-0.070/MANIFEST
--- old/Path-Tiny-0.068/MANIFEST        2015-03-24 01:43:17.000000000 +0100
+++ new/Path-Tiny-0.070/MANIFEST        2015-06-28 19:50:34.000000000 +0200
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::Manifest 
v5.034.
+# This file was automatically generated by Dist::Zilla::Plugin::Manifest 
v5.037.
 CONTRIBUTING.mkdn
 Changes
 LICENSE
@@ -36,6 +36,7 @@
 t/rel-abs.t
 t/subsumes.t
 t/temp.t
+t/visit.t
 t/zz-atomic.t
 t/zzz-spec.t
 tidyall.ini
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/META.json 
new/Path-Tiny-0.070/META.json
--- old/Path-Tiny-0.068/META.json       2015-03-24 01:43:17.000000000 +0100
+++ new/Path-Tiny-0.070/META.json       2015-06-28 19:50:34.000000000 +0200
@@ -4,7 +4,7 @@
       "David Golden <[email protected]>"
    ],
    "dynamic_config" : 0,
-   "generated_by" : "Dist::Zilla version 5.034, CPAN::Meta::Converter version 
2.150001",
+   "generated_by" : "Dist::Zilla version 5.037, CPAN::Meta::Converter version 
2.150005",
    "license" : [
       "apache_2_0"
    ],
@@ -100,11 +100,11 @@
    "provides" : {
       "Path::Tiny" : {
          "file" : "lib/Path/Tiny.pm",
-         "version" : "0.068"
+         "version" : "0.070"
       },
       "Path::Tiny::Error" : {
          "file" : "lib/Path/Tiny.pm",
-         "version" : "0.068"
+         "version" : "0.070"
       }
    },
    "release_status" : "stable",
@@ -119,7 +119,7 @@
          "web" : "https://github.com/dagolden/Path-Tiny";
       }
    },
-   "version" : "0.068",
+   "version" : "0.070",
    "x_authority" : "cpan:DAGOLDEN",
    "x_contributors" : [
       "Alex Efros <[email protected]>",
@@ -136,9 +136,13 @@
       "Karen Etheridge <[email protected]>",
       "Martin Kjeldsen <[email protected]>",
       "Michael G. Schwern <[email protected]>",
+      "Philippe Bruhat (BooK) <[email protected]>",
+      "Regina Verbae <[email protected]>",
       "regina-verbae <[email protected]>",
       "Smylers <[email protected]>",
+      "Tatsuhiko Miyagawa <[email protected]>",
       "Toby Inkster <[email protected]>",
+      "Yanick Champoux <[email protected]>",
       "김도형 - Keedi Kim <[email protected]>"
    ]
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/META.yml new/Path-Tiny-0.070/META.yml
--- old/Path-Tiny-0.068/META.yml        2015-03-24 01:43:17.000000000 +0100
+++ new/Path-Tiny-0.070/META.yml        2015-06-28 19:50:34.000000000 +0200
@@ -17,7 +17,7 @@
   ExtUtils::MakeMaker: '6.17'
   perl: '5.008001'
 dynamic_config: 0
-generated_by: 'Dist::Zilla version 5.034, CPAN::Meta::Converter version 
2.150001'
+generated_by: 'Dist::Zilla version 5.037, CPAN::Meta::Converter version 
2.150005'
 license: apache
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -35,10 +35,10 @@
 provides:
   Path::Tiny:
     file: lib/Path/Tiny.pm
-    version: '0.068'
+    version: '0.070'
   Path::Tiny::Error:
     file: lib/Path/Tiny.pm
-    version: '0.068'
+    version: '0.070'
 recommends:
   Unicode::UTF8: '0.58'
 requires:
@@ -64,7 +64,7 @@
   bugtracker: https://github.com/dagolden/Path-Tiny/issues
   homepage: https://github.com/dagolden/Path-Tiny
   repository: https://github.com/dagolden/Path-Tiny.git
-version: '0.068'
+version: '0.070'
 x_authority: cpan:DAGOLDEN
 x_contributors:
   - 'Alex Efros <[email protected]>'
@@ -81,7 +81,11 @@
   - 'Karen Etheridge <[email protected]>'
   - 'Martin Kjeldsen <[email protected]>'
   - 'Michael G. Schwern <[email protected]>'
+  - 'Philippe Bruhat (BooK) <[email protected]>'
+  - 'Regina Verbae <[email protected]>'
   - 'regina-verbae <[email protected]>'
   - 'Smylers <[email protected]>'
+  - 'Tatsuhiko Miyagawa <[email protected]>'
   - 'Toby Inkster <[email protected]>'
+  - 'Yanick Champoux <[email protected]>'
   - '김도형 - Keedi Kim <[email protected]>'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/Makefile.PL 
new/Path-Tiny-0.070/Makefile.PL
--- old/Path-Tiny-0.068/Makefile.PL     2015-03-24 01:43:17.000000000 +0100
+++ new/Path-Tiny-0.070/Makefile.PL     2015-06-28 19:50:34.000000000 +0200
@@ -1,4 +1,4 @@
-# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker 
v5.034.
+# This file was automatically generated by Dist::Zilla::Plugin::MakeMaker 
v5.037.
 use strict;
 use warnings;
 
@@ -47,7 +47,7 @@
     "lib" => 0,
     "open" => 0
   },
-  "VERSION" => "0.068",
+  "VERSION" => "0.070",
   "test" => {
     "TESTS" => "t/*.t"
   }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/README new/Path-Tiny-0.070/README
--- old/Path-Tiny-0.068/README  2015-03-24 01:43:17.000000000 +0100
+++ new/Path-Tiny-0.070/README  2015-06-28 19:50:34.000000000 +0200
@@ -2,7 +2,7 @@
     Path::Tiny - File path utility
 
 VERSION
-    version 0.068
+    version 0.070
 
 SYNOPSIS
       use Path::Tiny;
@@ -160,8 +160,8 @@
         $temp = Path::Tiny->tempfile( "customXXXXXXXX" );             # ok
         $temp = Path::Tiny->tempfile( TEMPLATE => "customXXXXXXXX" ); # ok
 
-    The tempfile path object will normalized to have an absolute path, even
-    if created in a relative directory using "DIR".
+    The tempfile path object will be normalized to have an absolute path,
+    even if created in a relative directory using "DIR".
 
     "tempdir" is just like "tempfile", except it calls "File::Temp->newdir"
     instead.
@@ -170,10 +170,10 @@
     functions instead of as methods.
 
     Note: for tempfiles, the filehandles from File::Temp are closed and not
-    reused. This is not as secure than using File::Temp handles directly,
-    but is less prone to deadlocks or access problems on some platforms.
-    Think of what "Path::Tiny" gives you to be just a temporary file name
-    that gets cleaned up.
+    reused. This is not as secure as using File::Temp handles directly, but
+    is less prone to deadlocks or access problems on some platforms. Think
+    of what "Path::Tiny" gives you to be just a temporary file name that
+    gets cleaned up.
 
     Current API available since 0.018.
 
@@ -309,9 +309,10 @@
   copy
         path("/tmp/foo.txt")->copy("/tmp/bar.txt");
 
-    Copies a file using File::Copy's "copy" function.
+    Copies a file using File::Copy's "copy" function. Upon success, returns
+    the "Path::Tiny" object for the newly copied file.
 
-    Current API available since 0.001.
+    Current API available since 0.070.
 
   digest
         $obj = path("/tmp/foo.txt")->digest;        # SHA-256
@@ -753,7 +754,7 @@
             sub {
                 my ($path, $state) = @_;
                 return if $path->is_dir;
-                $state{$path} = -s $path;
+                $state->{$path} = -s $path;
             },
             { recurse => 1 }
         );
@@ -772,7 +773,7 @@
         my $files = path("/tmp")->visit(
             sub {
                 my ($path, $state) = @_;
-                $state{$path}++ if -s $path > 102400
+                $state->{$path}++ if -s $path > 102400
                 return \0 if keys %$state == 10;
             },
             { recurse => 1 }
@@ -944,12 +945,20 @@
 
     *   Michael G. Schwern <[email protected]>
 
+    *   Philippe Bruhat (BooK) <[email protected]>
+
+    *   Regina Verbae <[email protected]>
+
     *   regina-verbae <[email protected]>
 
     *   Smylers <[email protected]>
 
+    *   Tatsuhiko Miyagawa <[email protected]>
+
     *   Toby Inkster <[email protected]>
 
+    *   Yanick Champoux <[email protected]>
+
     *   김도형 - Keedi Kim <[email protected]>
 
 COPYRIGHT AND LICENSE
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/lib/Path/Tiny.pm 
new/Path-Tiny-0.070/lib/Path/Tiny.pm
--- old/Path-Tiny-0.068/lib/Path/Tiny.pm        2015-03-24 01:43:17.000000000 
+0100
+++ new/Path-Tiny-0.070/lib/Path/Tiny.pm        2015-06-28 19:50:34.000000000 
+0200
@@ -5,7 +5,7 @@
 package Path::Tiny;
 # ABSTRACT: File path utility
 
-our $VERSION = '0.068';
+our $VERSION = '0.070';
 
 # Dependencies
 use Config;
@@ -314,7 +314,7 @@
 #pod     $temp = Path::Tiny->tempfile( "customXXXXXXXX" );             # ok
 #pod     $temp = Path::Tiny->tempfile( TEMPLATE => "customXXXXXXXX" ); # ok
 #pod
-#pod The tempfile path object will normalized to have an absolute path, even if
+#pod The tempfile path object will be normalized to have an absolute path, 
even if
 #pod created in a relative directory using C<DIR>.
 #pod
 #pod C<tempdir> is just like C<tempfile>, except it calls
@@ -324,7 +324,7 @@
 #pod functions instead of as methods.
 #pod
 #pod B<Note>: for tempfiles, the filehandles from File::Temp are closed and not
-#pod reused.  This is not as secure than using File::Temp handles directly, 
but is
+#pod reused.  This is not as secure as using File::Temp handles directly, but 
is
 #pod less prone to deadlocks or access problems on some platforms.  Think of 
what
 #pod C<Path::Tiny> gives you to be just a temporary file B<name> that gets 
cleaned
 #pod up.
@@ -670,9 +670,11 @@
 #pod
 #pod     path("/tmp/foo.txt")->copy("/tmp/bar.txt");
 #pod
-#pod Copies a file using L<File::Copy>'s C<copy> function.
+#pod Copies a file using L<File::Copy>'s C<copy> function. Upon
+#pod success, returns the C<Path::Tiny> object for the newly copied
+#pod file.
 #pod
-#pod Current API available since 0.001.
+#pod Current API available since 0.070.
 #pod
 #pod =cut
 
@@ -682,6 +684,8 @@
     require File::Copy;
     File::Copy::copy( $self->[PATH], $dest )
       or Carp::croak("copy failed for $self to $dest: $!");
+
+    return -d $dest ? path( $dest, $self->basename ) : path($dest);
 }
 
 #pod =method digest
@@ -1684,7 +1688,7 @@
 #pod         sub {
 #pod             my ($path, $state) = @_;
 #pod             return if $path->is_dir;
-#pod             $state{$path} = -s $path;
+#pod             $state->{$path} = -s $path;
 #pod         },
 #pod         { recurse => 1 }
 #pod     );
@@ -1703,7 +1707,7 @@
 #pod     my $files = path("/tmp")->visit(
 #pod         sub {
 #pod             my ($path, $state) = @_;
-#pod             $state{$path}++ if -s $path > 102400
+#pod             $state->{$path}++ if -s $path > 102400
 #pod             return \0 if keys %$state == 10;
 #pod         },
 #pod         { recurse => 1 }
@@ -1726,7 +1730,7 @@
     while ( my $file = $next->() ) {
         local $_ = $file;
         my $r = $cb->( $file, $state );
-        last if ref($r) && !$$r;
+        last if ref($r) eq 'SCALAR' && !$$r;
     }
     return $state;
 }
@@ -1781,7 +1785,7 @@
 
 =head1 VERSION
 
-version 0.068
+version 0.070
 
 =head1 SYNOPSIS
 
@@ -1946,7 +1950,7 @@
     $temp = Path::Tiny->tempfile( "customXXXXXXXX" );             # ok
     $temp = Path::Tiny->tempfile( TEMPLATE => "customXXXXXXXX" ); # ok
 
-The tempfile path object will normalized to have an absolute path, even if
+The tempfile path object will be normalized to have an absolute path, even if
 created in a relative directory using C<DIR>.
 
 C<tempdir> is just like C<tempfile>, except it calls
@@ -1956,7 +1960,7 @@
 functions instead of as methods.
 
 B<Note>: for tempfiles, the filehandles from File::Temp are closed and not
-reused.  This is not as secure than using File::Temp handles directly, but is
+reused.  This is not as secure as using File::Temp handles directly, but is
 less prone to deadlocks or access problems on some platforms.  Think of what
 C<Path::Tiny> gives you to be just a temporary file B<name> that gets cleaned
 up.
@@ -2109,9 +2113,11 @@
 
     path("/tmp/foo.txt")->copy("/tmp/bar.txt");
 
-Copies a file using L<File::Copy>'s C<copy> function.
+Copies a file using L<File::Copy>'s C<copy> function. Upon
+success, returns the C<Path::Tiny> object for the newly copied
+file.
 
-Current API available since 0.001.
+Current API available since 0.070.
 
 =head2 digest
 
@@ -2570,7 +2576,7 @@
         sub {
             my ($path, $state) = @_;
             return if $path->is_dir;
-            $state{$path} = -s $path;
+            $state->{$path} = -s $path;
         },
         { recurse => 1 }
     );
@@ -2589,7 +2595,7 @@
     my $files = path("/tmp")->visit(
         sub {
             my ($path, $state) = @_;
-            $state{$path}++ if -s $path > 102400
+            $state->{$path}++ if -s $path > 102400
             return \0 if keys %$state == 10;
         },
         { recurse => 1 }
@@ -2782,7 +2788,7 @@
 
 =head1 CONTRIBUTORS
 
-=for stopwords Alex Efros Chris Williams David Steinbrunner Doug Bell Gabor 
Szabo Gabriel Andrade George Hartzell Geraud Continsouzas Goro Fuji Graham Knop 
James Hunt Karen Etheridge Martin Kjeldsen Michael G. Schwern regina-verbae 
Smylers Toby Inkster 김도형 - Keedi Kim
+=for stopwords Alex Efros Chris Williams David Steinbrunner Doug Bell Gabor 
Szabo Gabriel Andrade George Hartzell Geraud Continsouzas Goro Fuji Graham Knop 
James Hunt Karen Etheridge Martin Kjeldsen Michael G. Schwern Philippe Bruhat 
(BooK) Regina Verbae regina-verbae Smylers Tatsuhiko Miyagawa Toby Inkster 
Yanick Champoux 김도형 - Keedi Kim
 
 =over 4
 
@@ -2844,6 +2850,14 @@
 
 =item *
 
+Philippe Bruhat (BooK) <[email protected]>
+
+=item *
+
+Regina Verbae <[email protected]>
+
+=item *
+
 regina-verbae <[email protected]>
 
 =item *
@@ -2852,10 +2866,18 @@
 
 =item *
 
+Tatsuhiko Miyagawa <[email protected]>
+
+=item *
+
 Toby Inkster <[email protected]>
 
 =item *
 
+Yanick Champoux <[email protected]>
+
+=item *
+
 김도형 - Keedi Kim <[email protected]>
 
 =back
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/t/00-report-prereqs.t 
new/Path-Tiny-0.070/t/00-report-prereqs.t
--- old/Path-Tiny-0.068/t/00-report-prereqs.t   2015-03-24 01:43:17.000000000 
+0100
+++ new/Path-Tiny-0.070/t/00-report-prereqs.t   2015-06-28 19:50:34.000000000 
+0200
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.020
+# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.021
 
 use Test::More tests => 1;
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/t/basic.t 
new/Path-Tiny-0.070/t/basic.t
--- old/Path-Tiny-0.068/t/basic.t       2015-03-24 01:43:17.000000000 +0100
+++ new/Path-Tiny-0.070/t/basic.t       2015-06-28 19:50:34.000000000 +0200
@@ -172,6 +172,14 @@
     };
     is( $err, '', "no exception if assertion succeeds" );
     isa_ok( $path, "Path::Tiny", "assertion return value" );
+
+    $err = exception {
+        path(".")->visit(
+            sub { $_[1]->{$_} = { path => $_ } },
+            { recurse => 1 },
+        );
+    };
+    is $err, "", 'no exception';
 }
 
 done_testing();
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/t/filesystem.t 
new/Path-Tiny-0.070/t/filesystem.t
--- old/Path-Tiny-0.068/t/filesystem.t  2015-03-24 01:43:17.000000000 +0100
+++ new/Path-Tiny-0.070/t/filesystem.t  2015-06-28 19:50:34.000000000 +0200
@@ -286,31 +286,48 @@
 
     # but non-existent basename in realpath should throw error
     eval { path("./djslakdj")->realpath };
-    is( $@, '', "no error from realpath on non-existent last component"
-    );
+    is( $@, '', "no error from realpath on non-existent last component" );
 }
 
-{
+subtest "copy()" => sub {
     my $file = $tmpdir->child("foo.txt");
     $file->spew("Hello World\n");
-    my $copy = $tmpdir->child("bar.txt");
-    $file->copy($copy);
-    is( $copy->slurp, "Hello World\n", "file copied" );
-    # try some different chmods
-    ok( $copy->chmod(0000),   "chmod(0000)" );
-    ok( $copy->chmod("0400"), "chmod('0400')" );
-    SKIP: {
-        skip "No exception if run as root", 1 if $> == 0;
-        skip "No exception writing to read-only file", 1
-          unless
-          exception { open my $fh, ">", "$copy" or die }; # probe if actually 
read-only
-        my $error = exception { $file->copy($copy) };
-        ok( $error, "copy throws error if permission denied" );
-        like( $error, qr/\Q$file/, "error messages includes the source file 
name" );
-        like( $error, qr/\Q$copy/, "error messages includes the destination 
file name" );
-    }
-    ok( $copy->chmod("u+w"), "chmod('u+w')" );
-}
+
+    my $copy;
+    subtest "dest is a file" => sub {
+        $copy = $tmpdir->child("bar.txt");
+        my $result = $file->copy($copy);
+        is "$result" => "$copy", "returned the right file";
+
+        is( $copy->slurp, "Hello World\n", "file copied" );
+    };
+
+    subtest "dest is a dir" => sub {
+        # new tempdir nto to clobber the original foo.txt
+        my $tmpdir = Path::Tiny->tempdir;
+        my $result = $file->copy($tmpdir);
+
+        is "$result" => "$tmpdir/foo.txt", "returned the right file";
+
+        is $result->slurp, "Hello World\n", "file copied";
+    };
+
+    subtest "try some different chmods" => sub {
+        ok( $copy->chmod(0000),   "chmod(0000)" );
+        ok( $copy->chmod("0400"), "chmod('0400')" );
+        SKIP: {
+            skip "No exception if run as root", 1 if $> == 0;
+            skip "No exception writing to read-only file", 1
+              unless
+              exception { open my $fh, ">", "$copy" or die }; # probe if 
actually read-only
+            my $error = exception { $file->copy($copy) };
+            ok( $error, "copy throws error if permission denied" );
+            like( $error, qr/\Q$file/, "error messages includes the source 
file name" );
+            like( $error, qr/\Q$copy/, "error messages includes the 
destination file name" );
+        }
+        ok( $copy->chmod("u+w"), "chmod('u+w')" );
+    };
+};
 
 {
     $tmpdir->child( "subdir", "touched.txt" )->touchpath->spew("Hello 
World\n");
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/t/visit.t 
new/Path-Tiny-0.070/t/visit.t
--- old/Path-Tiny-0.068/t/visit.t       1970-01-01 01:00:00.000000000 +0100
+++ new/Path-Tiny-0.070/t/visit.t       2015-06-28 19:50:34.000000000 +0200
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use Test::More tests => 3;
+
+use Path::Tiny;
+
+path('t')->visit(sub{ return [ ] });
+
+pass "visit callback doesn't choke on random returned refs";
+
+my $all;
+my $terminated;
+
+path('t')->visit(sub{ $all++ });
+
+path('t')->visit(sub{ $terminated++; return \0 if $terminated == 10 });
+
+is $terminated => 10, "terminated before the whole dir was read";
+
+cmp_ok $all, '>=', $terminated, "we have more than 10 tests in that dir";
+
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/xt/author/00-compile.t 
new/Path-Tiny-0.070/xt/author/00-compile.t
--- old/Path-Tiny-0.068/xt/author/00-compile.t  2015-03-24 01:43:17.000000000 
+0100
+++ new/Path-Tiny-0.070/xt/author/00-compile.t  2015-06-28 19:50:34.000000000 
+0200
@@ -2,11 +2,11 @@
 use strict;
 use warnings;
 
-# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.051
+# this test was generated with Dist::Zilla::Plugin::Test::Compile 2.053
 
 use Test::More;
 
-plan tests => 1 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+plan tests => 2;
 
 my @module_files = (
     'Path/Tiny.pm'
@@ -39,6 +39,9 @@
     waitpid($pid, 0);
     is($?, 0, "$lib loaded ok");
 
+    shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/
+        and not eval { blib->VERSION('1.01') };
+
     if (@_warnings)
     {
         warn @_warnings;
@@ -49,6 +52,6 @@
 
 
 is(scalar(@warnings), 0, 'no warnings found')
-    or diag 'got warnings: ', ( Test::More->can('explain') ? 
Test::More::explain(\@warnings) : join("\n", '', @warnings) ) if 
$ENV{AUTHOR_TESTING};
+    or diag 'got warnings: ', ( Test::More->can('explain') ? 
Test::More::explain(\@warnings) : join("\n", '', @warnings) );
 
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/xt/author/pod-spell.t 
new/Path-Tiny-0.070/xt/author/pod-spell.t
--- old/Path-Tiny-0.068/xt/author/pod-spell.t   2015-03-24 01:43:17.000000000 
+0100
+++ new/Path-Tiny-0.070/xt/author/pod-spell.t   2015-06-28 19:50:34.000000000 
+0200
@@ -2,7 +2,7 @@
 use warnings;
 use Test::More;
 
-# generated by Dist::Zilla::Plugin::Test::PodSpelling 2.006008
+# generated by Dist::Zilla::Plugin::Test::PodSpelling 2.006009
 use Test::Spelling 0.12;
 use Pod::Wordlist;
 
@@ -77,11 +77,23 @@
 Michael
 Schwern
 mschwern
+Philippe
+Bruhat
+BooK
+book
+Regina
+Verbae
 regina
 Smylers
+Tatsuhiko
+Miyagawa
+miyagawa
 Toby
 Inkster
 tobyink
+Yanick
+Champoux
+yanick
 김도형
 Keedi
 Kim
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Path-Tiny-0.068/xt/release/test-version.t 
new/Path-Tiny-0.070/xt/release/test-version.t
--- old/Path-Tiny-0.068/xt/release/test-version.t       2015-03-24 
01:43:17.000000000 +0100
+++ new/Path-Tiny-0.070/xt/release/test-version.t       2015-06-28 
19:50:34.000000000 +0200
@@ -2,14 +2,16 @@
 use warnings;
 use Test::More;
 
-# generated by Dist::Zilla::Plugin::Test::Version 0.003001
+# generated by Dist::Zilla::Plugin::Test::Version 1.04
 use Test::Version;
 
-my @imports = ( 'version_all_ok' );
+my @imports = qw( version_all_ok );
 
 my $params = {
-    is_strict   => 0,
-    has_version => 1,
+    is_strict      => 0,
+    has_version    => 1,
+    multiple       => 0,
+
 };
 
 push @imports, $params

++++++ cpanspec.yml ++++++
---
#description_paragraphs: 3
#no_testing: broken upstream
#sources:
#  - source1
#  - source2
#patches:
#  foo.patch: -p1
#  bar.patch:
#preamble: |-
# BuildRequires:  gcc-c++
#post_prep: |-
# hunspell=`pkg-config --libs hunspell | sed -e 's,-l,,; s,  *,,g'`
# sed -i -e "s,hunspell-X,$hunspell," t/00-prereq.t Makefile.PL 
#post_install: |-
# sed on %{name}.files
#license: SUSE-NonFree
#skip_noarch: 1
#custom_build: |-
#./Build build flags=%{?_smp_mflags} --myflag
#custom_test: |-
#startserver && make test
#ignore_requires: Bizarre::Module

Reply via email to