r2855 - in /packages/libfile-path-expand-perl/trunk: Changes
META.yml
Makefile.PL debian/changelog debian/control lib/File/Path/Expand.pm
t/File-Path-Expand.t
eloy at users.alioth.debian.org
eloy at users.alioth.debian.org
Fri Jun 2 11:22:51 UTC 2006
Author: eloy
Date: Fri Jun 2 11:22:50 2006
New Revision: 2855
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2855
Log:
eloy: new upstream version
Modified:
packages/libfile-path-expand-perl/trunk/Changes
packages/libfile-path-expand-perl/trunk/META.yml
packages/libfile-path-expand-perl/trunk/Makefile.PL
packages/libfile-path-expand-perl/trunk/debian/changelog
packages/libfile-path-expand-perl/trunk/debian/control
packages/libfile-path-expand-perl/trunk/lib/File/Path/Expand.pm
packages/libfile-path-expand-perl/trunk/t/File-Path-Expand.t
Modified: packages/libfile-path-expand-perl/trunk/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-path-expand-perl/trunk/Changes?rev=2855&op=diff
==============================================================================
--- packages/libfile-path-expand-perl/trunk/Changes (original)
+++ packages/libfile-path-expand-perl/trunk/Changes Fri Jun 2 11:22:50 2006
@@ -1,3 +1,6 @@
+1.02 Thursday 11th May, 2006
+ Apply the patch from http://rt.cpan.org/Ticket/Display.html?id=13081
+
1.01 Sunday 11th May, 2003
Bugfix to the test suite - had miscounted the number of skipped tests
Modified: packages/libfile-path-expand-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-path-expand-perl/trunk/META.yml?rev=2855&op=diff
==============================================================================
--- packages/libfile-path-expand-perl/trunk/META.yml (original)
+++ packages/libfile-path-expand-perl/trunk/META.yml Fri Jun 2 11:22:50 2006
@@ -1,15 +1,14 @@
---- #YAML:1.0
+---
name: File-Path-Expand
-version: 1.01
+version: 1.02
+author:
+ - Richard Clamp <richardc at unixbeard.net>
+abstract: expand filenames
license: perl
-distribution_type: module
requires:
Test::More: 0
-recommends: {}
-build_requires: {}
-conflicts: {}
provides:
File::Path::Expand:
file: lib/File/Path/Expand.pm
- version: 1.01
-generated_by: Module::Build version 0.18
+ version: 1.02
+generated_by: Module::Build version 0.261
Modified: packages/libfile-path-expand-perl/trunk/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-path-expand-perl/trunk/Makefile.PL?rev=2855&op=diff
==============================================================================
--- packages/libfile-path-expand-perl/trunk/Makefile.PL (original)
+++ packages/libfile-path-expand-perl/trunk/Makefile.PL Fri Jun 2 11:22:50 2006
@@ -1,10 +1,13 @@
- use ExtUtils::MakeMaker;
- WriteMakefile
- ('DISTNAME' => 'File-Path-Expand',
- 'VERSION' => '1.01',
- 'PL_FILES' => {},
- 'PREREQ_PM' => {
- 'Test::More' => '0',
-
- },
- );
+# Note: this file was auto-generated by Module::Build::Compat version 0.03
+use ExtUtils::MakeMaker;
+WriteMakefile
+(
+ 'PL_FILES' => {},
+ 'INSTALLDIRS' => 'site',
+ 'NAME' => 'File::Path::Expand',
+ 'VERSION_FROM' => 'lib/File/Path/Expand.pm',
+ 'PREREQ_PM' => {
+ 'Test::More' => 0
+ }
+ )
+;
Modified: packages/libfile-path-expand-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-path-expand-perl/trunk/debian/changelog?rev=2855&op=diff
==============================================================================
--- packages/libfile-path-expand-perl/trunk/debian/changelog (original)
+++ packages/libfile-path-expand-perl/trunk/debian/changelog Fri Jun 2 11:22:50 2006
@@ -1,3 +1,12 @@
+libfile-path-expand-perl (1.02-1) unstable; urgency=low
+
+ * New upstream release
+ * debian/control:
+ - Uploaders: Added me
+ - Standards-Version: increased to 3.7.2 without additional changes
+
+ -- Krzysztof Krzyzaniak (eloy) <eloy at debian.org> Fri, 2 Jun 2006 13:17:45 +0200
+
libfile-path-expand-perl (1.01-2) unstable; urgency=low
* Set maintainer to the Debian Perl Group.
Modified: packages/libfile-path-expand-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-path-expand-perl/trunk/debian/control?rev=2855&op=diff
==============================================================================
--- packages/libfile-path-expand-perl/trunk/debian/control (original)
+++ packages/libfile-path-expand-perl/trunk/debian/control Fri Jun 2 11:22:50 2006
@@ -5,7 +5,7 @@
Build-Depends-Indep: perl (>= 5.8.0-7)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Niko Tyni <ntyni at iki.fi>, Krzysztof Krzyzaniak (eloy) <eloy at debian.org>
-Standards-Version: 3.6.2
+Standards-Version: 3.7.2
Package: libfile-path-expand-perl
Architecture: all
Modified: packages/libfile-path-expand-perl/trunk/lib/File/Path/Expand.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-path-expand-perl/trunk/lib/File/Path/Expand.pm?rev=2855&op=diff
==============================================================================
--- packages/libfile-path-expand-perl/trunk/lib/File/Path/Expand.pm (original)
+++ packages/libfile-path-expand-perl/trunk/lib/File/Path/Expand.pm Fri Jun 2 11:22:50 2006
@@ -6,14 +6,14 @@
use base 'Exporter';
use vars qw( $VERSION @EXPORT @EXPORT_OK );
-$VERSION = '1.01';
+$VERSION = '1.02';
@EXPORT = qw( expand_filename );
@EXPORT_OK = qw( expand_filename home_of );
sub expand_filename {
my $path = shift;
- $path =~ s{^~/}{ $ENV{HOME} ? "$ENV{HOME}/" : home_of( $> )."/" }e;
- $path =~ s{^~(.*?)/}{ home_of( $1 )."/" }e;
+ $path =~ s{^~(?=/|$)}{ $ENV{HOME} ? "$ENV{HOME}" : home_of( $> ) }e
+ or $path =~ s{^~(.+?)(?=/|$)}{ home_of( $1 ) }e;
return $path;
}
Modified: packages/libfile-path-expand-perl/trunk/t/File-Path-Expand.t
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libfile-path-expand-perl/trunk/t/File-Path-Expand.t?rev=2855&op=diff
==============================================================================
--- packages/libfile-path-expand-perl/trunk/t/File-Path-Expand.t (original)
+++ packages/libfile-path-expand-perl/trunk/t/File-Path-Expand.t Fri Jun 2 11:22:50 2006
@@ -1,26 +1,30 @@
#!perl -w
use strict;
-use Test::More tests => 5;
+use Test::More tests => 8;
use Sys::Hostname;
BEGIN { use_ok('File::Path::Expand') };
$ENV{HOME} = '/some/path';
is( expand_filename('~/foo'), "/some/path/foo", 'uses $HOME' );
+is( expand_filename('~'), $ENV{HOME}, '...and similarly for ~' );
SKIP: {
- skip "only guaranteed on penfold", 3
+ skip "only guaranteed on penfold", 5
unless hostname eq 'penfold.unixbeard.net';
SKIP: {
- skip "have to be richardc too", 1
+ skip "have to be richardc too", 2
unless $> eq 1000;
$ENV{HOME} = '';
is( expand_filename("~/foo"), "/home/richardc/foo",
'without $HOME ~/' );
+ is( expand_filename("~"), "/home/richardc",
+ '...and similarly for ~' );
}
is( expand_filename('~root/foo'), "/root/foo", 'root' );
+ is( expand_filename('~root'), "/root", '...and similarly for ~root' );
eval { expand_filename('~frooby/') };
like( $@, qr{^no such user 'frooby'}, "failure" );
More information about the Pkg-perl-cvs-commits
mailing list