Hello community,
here is the log from the commit of package perl-File-Path-Tiny for
openSUSE:Factory checked in at 2013-06-06 15:05:58
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-File-Path-Tiny (Old)
and /work/SRC/openSUSE:Factory/.perl-File-Path-Tiny.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-File-Path-Tiny"
Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-File-Path-Tiny/perl-File-Path-Tiny.changes
2012-03-05 14:02:45.000000000 +0100
+++
/work/SRC/openSUSE:Factory/.perl-File-Path-Tiny.new/perl-File-Path-Tiny.changes
2013-06-06 15:06:00.000000000 +0200
@@ -1,0 +2,15 @@
+Tue Jun 4 08:56:47 UTC 2013 - [email protected]
+
+- updated to 0.5
+ rt 79472 (thanks Lachlan!) fix absolute path bug introduced in 0.4
+
+ rt 79345 (thanks Gian!): Failed to recursively create dir if the first
part solves to false
+
+ rt 76061 No LICENSE in META.yml
+ rt 68950 break out rm() code into empty() type function, use it in rm()
+
+ rt 51728 Missing colon in synopsis
+ rt 75688 using deprecated for qw() in 00.load.t
+ perltidy
+
+-------------------------------------------------------------------
Old:
----
File-Path-Tiny-0.1.tar.gz
New:
----
File-Path-Tiny-0.5.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-File-Path-Tiny.spec ++++++
--- /var/tmp/diff_new_pack.3iLgLL/_old 2013-06-06 15:06:00.000000000 +0200
+++ /var/tmp/diff_new_pack.3iLgLL/_new 2013-06-06 15:06:00.000000000 +0200
@@ -1,7 +1,7 @@
#
# spec file for package perl-File-Path-Tiny
#
-# Copyright (c) 2012 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2013 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -17,11 +17,11 @@
Name: perl-File-Path-Tiny
-Version: 0.1
+Version: 0.5
Release: 0
%define cpan_name File-Path-Tiny
Summary: recursive versions of mkdir() and rmdir() without as much
overhead as Fi[cut]
-License: GPL-1.0+ or Artistic-1.0
+License: Artistic-1.0 or GPL-1.0+
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/File-Path-Tiny/
Source:
http://www.cpan.org/authors/id/D/DM/DMUEY/%{cpan_name}-%{version}.tar.gz
++++++ File-Path-Tiny-0.1.tar.gz -> File-Path-Tiny-0.5.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.1/Changes
new/File-Path-Tiny-0.5/Changes
--- old/File-Path-Tiny-0.1/Changes 2008-11-18 00:18:25.000000000 +0100
+++ new/File-Path-Tiny-0.5/Changes 2012-09-06 14:46:50.000000000 +0200
@@ -1,5 +1,20 @@
Revision history for File-Path-Tiny
+0.5 Thu Sep 6 07:38:06 2012
+ rt 79472 (thanks Lachlan!) fix absolute path bug introduced in 0.4
+
+0.4 Mon Sep 3 17:50:41 2012
+ rt 79345 (thanks Gian!): Failed to recursively create dir if the first
part solves to false
+
+0.3 Fri Apr 6 19:39:52 2012
+ rt 76061 No LICENSE in META.yml
+ rt 68950 break out rm() code into empty() type function, use it in rm()
+
+0.2 Sun Mar 11 16:50:44 2012
+ rt 51728 Missing colon in synopsis
+ rt 75688 using deprecated for qw() in 00.load.t
+ perltidy
+
0.1 Mon Nov 17 20:09:59 2008
Initial release.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.1/MANIFEST
new/File-Path-Tiny-0.5/MANIFEST
--- old/File-Path-Tiny-0.1/MANIFEST 2008-11-22 16:23:58.000000000 +0100
+++ new/File-Path-Tiny-0.5/MANIFEST 2012-09-04 00:56:45.000000000 +0200
@@ -9,3 +9,4 @@
t/pod-coverage.t
t/pod.t
META.yml Module meta-data (added by MakeMaker)
+META.json Module JSON meta-data (added by
MakeMaker)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.1/META.json
new/File-Path-Tiny-0.5/META.json
--- old/File-Path-Tiny-0.1/META.json 1970-01-01 01:00:00.000000000 +0100
+++ new/File-Path-Tiny-0.5/META.json 2012-09-06 14:47:18.000000000 +0200
@@ -0,0 +1,41 @@
+{
+ "abstract" : "recursive versions of mkdir() and rmdir() without as much
overhead as File::Path",
+ "author" : [
+ "Daniel Muey <http://drmuey.com/cpan_contact.pl>"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter
version 2.112150",
+ "license" : [
+ "perl_5"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec";,
+ "version" : "2"
+ },
+ "name" : "File-Path-Tiny",
+ "no_index" : {
+ "directory" : [
+ "t",
+ "inc"
+ ]
+ },
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : 0
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "ExtUtils::MakeMaker" : 0
+ }
+ },
+ "runtime" : {
+ "requires" : {
+ "Test::More" : 0
+ }
+ }
+ },
+ "release_status" : "stable",
+ "version" : "0.5"
+}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.1/META.yml
new/File-Path-Tiny-0.5/META.yml
--- old/File-Path-Tiny-0.1/META.yml 2008-11-22 16:23:58.000000000 +0100
+++ new/File-Path-Tiny-0.5/META.yml 2012-09-06 14:47:18.000000000 +0200
@@ -1,11 +1,22 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: File-Path-Tiny
-version: 0.1
-version_from: lib/File/Path/Tiny.pm
-installdirs: site
+---
+abstract: 'recursive versions of mkdir() and rmdir() without as much overhead
as File::Path'
+author:
+ - 'Daniel Muey <http://drmuey.com/cpan_contact.pl>'
+build_requires:
+ ExtUtils::MakeMaker: 0
+configure_requires:
+ ExtUtils::MakeMaker: 0
+dynamic_config: 1
+generated_by: 'ExtUtils::MakeMaker version 6.62, CPAN::Meta::Converter version
2.112150'
+license: perl
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: File-Path-Tiny
+no_index:
+ directory:
+ - t
+ - inc
requires:
- Test::More: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+ Test::More: 0
+version: 0.5
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.1/Makefile.PL
new/File-Path-Tiny-0.5/Makefile.PL
--- old/File-Path-Tiny-0.1/Makefile.PL 2008-11-19 22:39:27.000000000 +0100
+++ new/File-Path-Tiny-0.5/Makefile.PL 2012-04-04 22:17:41.000000000 +0200
@@ -8,6 +8,7 @@
VERSION_FROM => 'lib/File/Path/Tiny.pm',
ABSTRACT_FROM => 'lib/File/Path/Tiny.pod',
PL_FILES => {},
+ LICENSE => 'perl',
PREREQ_PM => {
'Test::More' => 0,
},
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.1/README
new/File-Path-Tiny-0.5/README
--- old/File-Path-Tiny-0.1/README 2008-11-18 00:18:52.000000000 +0100
+++ new/File-Path-Tiny-0.5/README 2012-09-06 14:46:40.000000000 +0200
@@ -1,4 +1,4 @@
-File-Path-Tiny version 0.1
+File-Path-Tiny version 0.5
DOCUMENTATION
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.1/lib/File/Path/Tiny.pm
new/File-Path-Tiny-0.5/lib/File/Path/Tiny.pm
--- old/File-Path-Tiny-0.1/lib/File/Path/Tiny.pm 2008-11-22
15:54:53.000000000 +0100
+++ new/File-Path-Tiny-0.5/lib/File/Path/Tiny.pm 2012-09-06
14:46:45.000000000 +0200
@@ -1,25 +1,25 @@
package File::Path::Tiny;
-$File::Path::Tiny::VERSION = 0.1;
+$File::Path::Tiny::VERSION = 0.5;
sub mk {
- my ($path,$mask) = @_;
+ my ( $path, $mask ) = @_;
return 2 if -d $path;
- if (-e $path) { $! = 20;return; }
- $mask ||= '0777'; # Perl::Critic == Integer with leading zeros at ...
- $mask = oct($mask) if substr($mask,0,1) eq '0';
+ if ( -e $path ) { $! = 20; return; }
+ $mask ||= '0777'; # Perl::Critic == Integer with leading zeros at ...
+ $mask = oct($mask) if substr( $mask, 0, 1 ) eq '0';
require File::Spec;
- my ($progressive, @parts) = File::Spec->splitdir($path);
- if (!$progressive) {
- $progressive = File::Spec->catdir($progressive, shift(@parts));
+ my ( $progressive, @parts ) = File::Spec->splitdir($path);
+ if ( !defined $progressive || $progressive eq '' ) {
+ $progressive = File::Spec->catdir( $progressive, shift(@parts) );
}
- if(!-d $progressive) {
- mkdir($progressive, $mask) or return;
+ if ( !-d $progressive ) {
+ mkdir( $progressive, $mask ) or return;
}
for my $part (@parts) {
- $progressive = File::Spec->catdir($progressive,$part);
- if (!-d $progressive) {
- mkdir($progressive, $mask) or return;
+ $progressive = File::Spec->catdir( $progressive, $part );
+ if ( !-d $progressive ) {
+ mkdir( $progressive, $mask ) or return;
}
}
return 1 if -d $path;
@@ -28,23 +28,30 @@
sub rm {
my ($path) = @_;
- if (-e $path && !-d $path) { $! = 20;return; }
+ if ( -e $path && !-d $path ) { $! = 20; return; }
return 2 if !-d $path;
- opendir(DIR, $path) or return;
+ empty_dir($path) or return;
+ rmdir($path) or return;
+ return 1;
+}
+
+sub empty_dir {
+ my ($path) = @_;
+ if ( -e $path && !-d $path ) { $! = 20; return; }
+ opendir( DIR, $path ) or return;
my @contents = grep { $_ ne '.' && $_ ne '..' } readdir(DIR);
closedir DIR;
require File::Spec if @contents;
for my $thing (@contents) {
- my $long = File::Spec->catdir($path, $thing);
- if (!-l $long && -d $long) {
+ my $long = File::Spec->catdir( $path, $thing );
+ if ( !-l $long && -d $long ) {
rm($long) or return;
}
else {
unlink $long or return;
}
}
- rmdir($path) or return;
return 1;
}
-1;
\ No newline at end of file
+1;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.1/lib/File/Path/Tiny.pod
new/File-Path-Tiny-0.5/lib/File/Path/Tiny.pod
--- old/File-Path-Tiny-0.1/lib/File/Path/Tiny.pod 2008-11-20
23:37:29.000000000 +0100
+++ new/File-Path-Tiny-0.5/lib/File/Path/Tiny.pod 2012-09-06
14:46:48.000000000 +0200
@@ -4,17 +4,17 @@
=head1 VERSION
-This document describes File::Path::Tiny version 0.1
+This document describes File::Path::Tiny version 0.5
=head1 SYNOPSIS
use File::Path::Tiny;
- if(!File::Path::Tiny:mk($path)) {
+ if(!File::Path::Tiny::mk($path)) {
die "Could not make path '$path': $!";
}
- if(!File::Path::Tiny:rm($path)) {
+ if(!File::Path::Tiny::rm($path)) {
die "Could not remove path '$path': $!";
}
@@ -80,6 +80,12 @@
Its parents, /, /foo, and /foo/bar are *not* touched.
+=head2 File::Path::Tiny::empty_dir()
+
+Takes a single path to recursively empty but not remove.
+
+Returns false when there is a problem.
+
=head1 DIAGNOSTICS
Throws no warnings or errors of its own
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/File-Path-Tiny-0.1/t/00.load.t
new/File-Path-Tiny-0.5/t/00.load.t
--- old/File-Path-Tiny-0.1/t/00.load.t 2008-11-22 16:23:26.000000000 +0100
+++ new/File-Path-Tiny-0.5/t/00.load.t 2012-09-06 14:46:32.000000000 +0200
@@ -1,21 +1,23 @@
-use Test::More tests => 16;
+use Test::More tests => 19;
use lib '../lib';
BEGIN {
- use_ok( 'File::Path::Tiny' );
+ use_ok('File::Path::Tiny');
}
-diag( "Testing File::Path::Tiny $File::Path::Tiny::VERSION" );
+diag("Testing File::Path::Tiny $File::Path::Tiny::VERSION");
# cleanup from last time
-for my $path qw(
- foo/bar/mode foo/bar/mode2 foo/bar/mode3
- foo/bar/mode_mkdir foo/bar/mode_mkdir2 foo/bar/dir
+for my $path (
+ qw(
+ foo/bar/mode foo/bar/mode2 foo/bar/mode3
+ foo/bar/mode_mkdir foo/bar/mode_mkdir2 foo/bar/dir
foo/bar/file foo/bar foo
-) {
- if (!-l $path && -d $path) {
+ )
+ ) {
+ if ( !-l $path && -d $path ) {
rmdir $path;
}
else {
@@ -25,45 +27,58 @@
SKIP: {
skip 'Stale testing files exist', 5 if -d 'foo/bar';
- ok(File::Path::Tiny::mk("foo/bar"), "make simple path - return true");
- ok(-d "foo/bar", "make simple path - path recursively created");
- ok(File::Path::Tiny::mk("foo") == 2, "make already existing dir");
- if( open my $fh, '>', 'foo/bar/file') {
+ ok( File::Path::Tiny::mk("foo/bar"), "make simple path - return true" );
+ ok( -d "foo/bar", "make simple path - path recursively
created" );
+ ok( File::Path::Tiny::mk("foo") == 2, "make already existing dir" );
+ if ( open my $fh, '>', 'foo/bar/file' ) {
print {$fh} "test";
close $fh;
}
- SKIP: {
+ SKIP: {
skip 'test file not created', 2 if !-e 'foo/bar/file';
- ok(!File::Path::Tiny::mk("foo/bar/file"), "make already existing non
dir - return false");
- ok($! == 20, "make already existing file - errno");
+ ok( !File::Path::Tiny::mk("foo/bar/file"), "make already existing non
dir - return false" );
+ ok( $! == 20, "make already existing file
- errno" );
}
}
+SKIP: {
+ eval 'require File::Temp;';
+ skip 'Absolute path test requires File::Temp', 3 if $@;
+ my $dir = File::Temp->newdir();
+ my $new = "$dir/foo/bar/baz";
+ ok( File::Path::Tiny::mk($new), "make absolute path - return true" );
+ ok( -d $new, "make absolute path - path
recursively created" );
+ ok( File::Path::Tiny::mk($new) == 2, "make already existing absolute path
dir" );
+}
+
mkdir 'foo/bar/dir';
-my $mk_mode = (stat('foo/bar'))[2];
+my $mk_mode = ( stat('foo/bar') )[2];
+
# $mk_mode = sprintf('%04o', $mk_mode & 07777);
-my $mkdir_mode = (stat('foo/bar/dir'))[2];
+my $mkdir_mode = ( stat('foo/bar/dir') )[2];
+
# $mkdir_mode = sprintf('%04o', $mkdir_mode & 07777);
# diag("mk: $mk_mode, mkdir: $mkdir_mode");
-ok($mk_mode == $mkdir_mode, 'MASK logic gets same results as mkdir()');
+ok( $mk_mode == $mkdir_mode, 'MASK logic gets same results as mkdir()' );
-File::Path::Tiny::mk("foo/bar/mode",0700);
+File::Path::Tiny::mk( "foo/bar/mode", 0700 );
mkdir 'foo/bar/mode_mkdir', 0700;
-ok((stat('foo/bar/mode'))[2] == (stat('foo/bar/mode_mkdir'))[2], 'MASK arg OCT
gets same results as mkdir()');
+ok( ( stat('foo/bar/mode') )[2] == ( stat('foo/bar/mode_mkdir') )[2], 'MASK
arg OCT gets same results as mkdir()' );
-File::Path::Tiny::mk("foo/bar/mode2",oct('0700'));
+File::Path::Tiny::mk( "foo/bar/mode2", oct('0700') );
mkdir 'foo/bar/mode_mkdir2', oct('0700');
-ok((stat('foo/bar/mode2'))[2] == (stat('foo/bar/mode_mkdir2'))[2], 'MASK arg
oct(STR) gets same results as mkdir()');
+ok( ( stat('foo/bar/mode2') )[2] == ( stat('foo/bar/mode_mkdir2') )[2], 'MASK
arg oct(STR) gets same results as mkdir()' );
+
+File::Path::Tiny::mk( "foo/bar/mode3", "0700" );
-File::Path::Tiny::mk("foo/bar/mode3", "0700");
# mkdir 'foo/bar/mode_mkdir3', "0700"; # this breaks permissions so we compare
with previous one
-ok((stat('foo/bar/mode3'))[2] == (stat('foo/bar/mode2'))[2], 'MASK arg STR
gets detected and handled - different results as mkdir()');
+ok( ( stat('foo/bar/mode3') )[2] == ( stat('foo/bar/mode2') )[2], 'MASK arg
STR gets detected and handled - different results as mkdir()' );
-ok(!File::Path::Tiny::rm("foo/bar/file"), "remove existing non dir - return
false");
-ok($! == 20, "remove existing non dir - errno");
+ok( !File::Path::Tiny::rm("foo/bar/file"), "remove existing non dir - return
false" );
+ok( $! == 20, "remove existing non dir - errno" );
undef $!;
-ok(File::Path::Tiny::rm('foo/bar'), "empty and remove simple path - return
true");
-ok(!-d 'foo/bar', "remove simple path - path recursively removed");
-ok(File::Path::Tiny::rm('foo/bar') == 2, "remove already non-existing dir");
-ok(File::Path::Tiny::rm('foo'), 'remove empty dir');
\ No newline at end of file
+ok( File::Path::Tiny::rm('foo/bar'), "empty and remove simple path -
return true" );
+ok( !-d 'foo/bar', "remove simple path - path
recursively removed" );
+ok( File::Path::Tiny::rm('foo/bar') == 2, "remove already non-existing dir" );
+ok( File::Path::Tiny::rm('foo'), 'remove empty dir' );
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
