r44298 - in /trunk/libfile-which-perl: Changes MANIFEST META.yml Makefile.PL debian/changelog debian/control lib/File/Which.pm script/pwhich t/01_compile.t t/04_pwhich.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Sep 19 14:02:21 UTC 2009
Author: jawnsy-guest
Date: Sat Sep 19 14:02:06 2009
New Revision: 44298
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44298
Log:
WAITS FOR libtest-script-perl 1.05
* New upstream release
+ Bug fixes to pwhich command
Added:
trunk/libfile-which-perl/t/04_pwhich.t
- copied unchanged from r44270, branches/upstream/libfile-which-perl/current/t/04_pwhich.t
Modified:
trunk/libfile-which-perl/Changes
trunk/libfile-which-perl/MANIFEST
trunk/libfile-which-perl/META.yml
trunk/libfile-which-perl/Makefile.PL
trunk/libfile-which-perl/debian/changelog
trunk/libfile-which-perl/debian/control
trunk/libfile-which-perl/lib/File/Which.pm
trunk/libfile-which-perl/script/pwhich
trunk/libfile-which-perl/t/01_compile.t
Modified: trunk/libfile-which-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-which-perl/Changes?rev=44298&op=diff
==============================================================================
--- trunk/libfile-which-perl/Changes (original)
+++ trunk/libfile-which-perl/Changes Sat Sep 19 14:02:06 2009
@@ -1,4 +1,9 @@
Revision history for File::Which.
+
+1.08 Tue 15 Sep 2009
+ - Fixing pwhich
+ - Adding a proper test for it
+ - Adds a dependency on Test::Script 1.08
1.07 Tue 28 Jul 2009
- CPAN Testers looks good for 1.06_01, moving to production release
Modified: trunk/libfile-which-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-which-perl/MANIFEST?rev=44298&op=diff
==============================================================================
--- trunk/libfile-which-perl/MANIFEST (original)
+++ trunk/libfile-which-perl/MANIFEST Sat Sep 19 14:02:06 2009
@@ -8,6 +8,7 @@
t/01_compile.t
t/02_all.t
t/03_simple.t
+t/04_pwhich.t
t/97_meta.t
t/98_pod.t
t/99_pmv.t
Modified: trunk/libfile-which-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-which-perl/META.yml?rev=44298&op=diff
==============================================================================
--- trunk/libfile-which-perl/META.yml (original)
+++ trunk/libfile-which-perl/META.yml Sat Sep 19 14:02:06 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: File-Which
-version: 1.07
+version: 1.08
abstract: Portable implementation of the "which" utility
author:
- Adam Kennedy <adamk at cpan.org>
@@ -11,10 +11,11 @@
build_requires:
ExtUtils::MakeMaker: 0
requires:
- Exporter: 0
- File::Spec: 0.60
- Getopt::Std: 0
- Test::More: 0.80
+ Exporter: 0
+ File::Spec: 0.60
+ Getopt::Std: 0
+ Test::More: 0.80
+ Test::Script: 1.05
no_index:
directory:
- t
Modified: trunk/libfile-which-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-which-perl/Makefile.PL?rev=44298&op=diff
==============================================================================
--- trunk/libfile-which-perl/Makefile.PL (original)
+++ trunk/libfile-which-perl/Makefile.PL Sat Sep 19 14:02:06 2009
@@ -7,10 +7,11 @@
'ABSTRACT' => 'Portable implementation of the "which" utility',
'VERSION_FROM' => 'lib/File/Which.pm',
'PREREQ_PM' => {
- 'Exporter' => 0,
- 'Getopt::Std' => 0,
- 'File::Spec' => '0.60',
- 'Test::More' => '0.80',
+ 'Exporter' => 0,
+ 'Getopt::Std' => 0,
+ 'File::Spec' => '0.60',
+ 'Test::More' => '0.80',
+ 'Test::Script' => '1.05',
},
'EXE_FILES' => [
'script/pwhich',
Modified: trunk/libfile-which-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-which-perl/debian/changelog?rev=44298&op=diff
==============================================================================
--- trunk/libfile-which-perl/debian/changelog (original)
+++ trunk/libfile-which-perl/debian/changelog Sat Sep 19 14:02:06 2009
@@ -1,8 +1,15 @@
-libfile-which-perl (1.07-2) UNRELEASED; urgency=low
+libfile-which-perl (1.08-1) UNRELEASED; urgency=low
+ WAITS FOR libtest-script-perl 1.05
+
+ [ Jonathan Yu ]
+ * New upstream release
+ + Bug fixes to pwhich command
+
+ [ Ryan Niebur ]
* Update jawnsy's email address
- -- Ryan Niebur <ryanryan52 at gmail.com> Tue, 01 Sep 2009 21:18:55 -0700
+ -- Jonathan Yu <jawnsy at cpan.org> Fri, 18 Sep 2009 19:54:08 -0400
libfile-which-perl (1.07-1) unstable; urgency=low
Modified: trunk/libfile-which-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-which-perl/debian/control?rev=44298&op=diff
==============================================================================
--- trunk/libfile-which-perl/debian/control (original)
+++ trunk/libfile-which-perl/debian/control Sat Sep 19 14:02:06 2009
@@ -4,7 +4,7 @@
Build-Depends: debhelper (>= 7.0.50), quilt (>= 0.46-7)
Build-Depends-Indep: libperl-minimumversion-perl, libtest-minimumversion-perl,
libpod-simple-perl (>= 3.07), libtest-pod-perl (>= 1.26),
- libtest-cpan-meta-perl
+ libtest-cpan-meta-perl, libtest-script-perl (>= 1.05)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Daniel Ruoso <daniel at ruoso.com>, Jonathan Yu <jawnsy at cpan.org>,
gregor herrmann <gregoa at debian.org>
Modified: trunk/libfile-which-perl/lib/File/Which.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-which-perl/lib/File/Which.pm?rev=44298&op=diff
==============================================================================
--- trunk/libfile-which-perl/lib/File/Which.pm (original)
+++ trunk/libfile-which-perl/lib/File/Which.pm Sat Sep 19 14:02:06 2009
@@ -7,7 +7,7 @@
use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK};
BEGIN {
- $VERSION = '1.07';
+ $VERSION = '1.08';
@ISA = 'Exporter';
@EXPORT = 'which';
@EXPORT_OK = 'where';
Modified: trunk/libfile-which-perl/script/pwhich
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-which-perl/script/pwhich?rev=44298&op=diff
==============================================================================
--- trunk/libfile-which-perl/script/pwhich (original)
+++ trunk/libfile-which-perl/script/pwhich Sat Sep 19 14:02:06 2009
@@ -7,7 +7,7 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.07';
+ $VERSION = '1.08';
}
# Handle options
@@ -26,7 +26,7 @@
it under the same terms as Perl itself.
END_TEXT
- exit;
+ exit(0);
}
unless ( @ARGV ) {
@@ -37,24 +37,27 @@
END_TEXT
- exit;
+ exit(0);
}
foreach my $file ( @ARGV ) {
my @result = $opts{a}
- ? which($file)
+ ? File::Which::which($file)
# Need to force scalar
- : scalar which($file);
+ : scalar File::Which::which($file);
# We might end up with @result = (undef) -> 1 elem
@result = () unless defined $result[0];
foreach my $result ( @result ) {
print "$result\n" if $result;
}
- print STDERR "pwhich: no $file in PATH\n" unless @result;
+ unless ( @result ) {
+ print STDERR "pwhich: no $file in PATH\n";
+ exit(255);
+ }
}
-exit;
+exit(0);
__END__
Modified: trunk/libfile-which-perl/t/01_compile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-which-perl/t/01_compile.t?rev=44298&op=diff
==============================================================================
--- trunk/libfile-which-perl/t/01_compile.t (original)
+++ trunk/libfile-which-perl/t/01_compile.t Sat Sep 19 14:02:06 2009
@@ -7,6 +7,8 @@
$^W = 1;
}
-use Test::More tests => 1;
+use Test::More tests => 2;
+use Test::Script;
use_ok( 'File::Which' );
+script_compiles('script/pwhich');
More information about the Pkg-perl-cvs-commits
mailing list