r63549 - in /trunk/libwww-mechanize-shell-perl: ./ debian/ debian/patches/ lib/WWW/Mechanize/ t/
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Sun Oct 10 20:04:02 UTC 2010
Author: angelabad-guest
Date: Sun Oct 10 20:03:49 2010
New Revision: 63549
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=63549
Log:
* New upstream release
* debian/copyright: Update upstream years
* debian/patches/01-fix_test_10.patch: Remove patch, test file no
longer exists
* debian/patches/response-dumper.patch: Remove patch, applied upstream
* debian/patches/spelling.patch: Remove patch, applied upstream
Added:
trunk/libwww-mechanize-shell-perl/.gitignore
- copied unchanged from r63542, branches/upstream/libwww-mechanize-shell-perl/current/.gitignore
trunk/libwww-mechanize-shell-perl/t/28-cmd-headers.t
- copied unchanged from r63542, branches/upstream/libwww-mechanize-shell-perl/current/t/28-cmd-headers.t
trunk/libwww-mechanize-shell-perl/t/99-changes.t
- copied unchanged from r63542, branches/upstream/libwww-mechanize-shell-perl/current/t/99-changes.t
trunk/libwww-mechanize-shell-perl/t/99-versions.t
- copied unchanged from r63542, branches/upstream/libwww-mechanize-shell-perl/current/t/99-versions.t
trunk/libwww-mechanize-shell-perl/t/source.mech
- copied unchanged from r63542, branches/upstream/libwww-mechanize-shell-perl/current/t/source.mech
Removed:
trunk/libwww-mechanize-shell-perl/debian/patches/
trunk/libwww-mechanize-shell-perl/t/10-nonexistent-host.t
Modified:
trunk/libwww-mechanize-shell-perl/Changes
trunk/libwww-mechanize-shell-perl/MANIFEST
trunk/libwww-mechanize-shell-perl/MANIFEST.skip
trunk/libwww-mechanize-shell-perl/META.yml
trunk/libwww-mechanize-shell-perl/README
trunk/libwww-mechanize-shell-perl/debian/changelog
trunk/libwww-mechanize-shell-perl/debian/control
trunk/libwww-mechanize-shell-perl/debian/copyright
trunk/libwww-mechanize-shell-perl/lib/WWW/Mechanize/Shell.pm
trunk/libwww-mechanize-shell-perl/t/14-command-identity.t
trunk/libwww-mechanize-shell-perl/t/99-manifest.t
trunk/libwww-mechanize-shell-perl/t/99-pod.t
trunk/libwww-mechanize-shell-perl/t/99-todo.t
trunk/libwww-mechanize-shell-perl/t/99-unix-text.t
Modified: trunk/libwww-mechanize-shell-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/Changes?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/Changes (original)
+++ trunk/libwww-mechanize-shell-perl/Changes Sun Oct 10 20:03:49 2010
@@ -5,11 +5,25 @@
+ Check how the new WWW::Mechanize JavaScript handling interacts with the
shells own JS blocking (badly, I guess)
+ Use Scalar::Util::weaken if available
- + Spin off HTML::Display into its own distribution
+ Think how to add other (Xpath) extractions to conveniently
display stuff via CSS selectors or XPath selectors. Steal
from Web::Scraper.
+ There is a memory leak between ::FormFiller and ::Shell
+ + Ditch Hook::LexWrap now that LWP::UserAgent has progress callbacks
+
+0.50 20100821
+ . Remove test file that was just testing LWP functionality and that
+ failed for some weird setups where nonexistent hosts still
+ result in a successful HTTP request.
+ . Added links to repositories
+
+0.49 20100817
+ + Apply [rt.cpan.org #59246] ,
+ thanks to Ansgar Burchardt
+ This fixes another case where API changes in LWP weren't mirrored
+ by this module.
+ + Fix t/14-command-identity.t to not make an external request anymore
+ Addresses [rt.cpan.org #59883]
0.48 20081109
+ More test fixes for incompatibilities between LWP and Mechanize 1.34+
@@ -72,7 +86,7 @@
- Bumped module version
- Fix for RT 22121 - shell does not start
-0.38 200612xx
+0.38 20061214
- Bumped module version
- Added a test for HTML::TableExtract functionality
which went untested so far
Modified: trunk/libwww-mechanize-shell-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/MANIFEST?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/MANIFEST (original)
+++ trunk/libwww-mechanize-shell-perl/MANIFEST Sun Oct 10 20:03:49 2010
@@ -1,53 +1,57 @@
-Changes
-MANIFEST This list of files
-MANIFEST.skip
-README
-Makefile.PL
-lib/WWW/Mechanize/Shell.pm
-bin/banking.postbank.de.mech
-bin/hotmail.signup.mech
-bin/wwwshell.pl
-inc/Test/HTTP/LocalServer.pm
-inc/Test/HTTP/log-server
-inc/IO/Catch.pm
-t/00-use.t
-t/00a-Term-Shell-catch-smry.t
-t/01-fallback-Win32-OLE.t
-t/02-fallback-HTML-TableExtract.t
-t/02-fallback-Pod-Constant.t
-t/03-documentation.t
-t/04-history-invariant.t
-t/05-options.t
-t/06-valid-output.t
-t/07-history-items.t
-t/08-unknown-command.t
-t/09-invalid-filename.t
-t/10-nonexistent-host.t
-t/11-browse-without-request.t
-t/12-comments.t
-t/13-command-au.t
-t/14-command-identity.t
-t/15-history-save.t
-t/16-form-fillout.t
-t/17-eval-multiline.t
-t/18-browser-autosync.t
-t/19-value-multi.t
-t/20-restart-without-script.t
-t/21-autofill-re.t
-t/22-complete-command.t
-t/23-check-dumpresponses.t
-t/24-source-file.t
-t/25-save-file-nolink.t
-t/26-form-no-form.t
-t/27-form_number.t
-t/27-index.html
-t/28-html-tableextract.t
-t/28-cmd-title.t
-t/29-launch-shell.t
-t/401-server
-t/98-bin.t
-t/99-pod.t
-t/99-todo.t
-t/99-unix-text.t
-t/99-manifest.t
-META.yml Module meta-data (added by MakeMaker)
+.gitignore
+bin/banking.postbank.de.mech
+bin/hotmail.signup.mech
+bin/wwwshell.pl
+Changes
+inc/IO/Catch.pm
+inc/Test/HTTP/LocalServer.pm
+inc/Test/HTTP/log-server
+lib/WWW/Mechanize/Shell.pm
+Makefile.PL
+MANIFEST This list of files
+MANIFEST.skip
+META.yml Module meta-data (added by MakeMaker)
+README
+t/00-use.t
+t/00a-Term-Shell-catch-smry.t
+t/01-fallback-Win32-OLE.t
+t/02-fallback-HTML-TableExtract.t
+t/02-fallback-Pod-Constant.t
+t/03-documentation.t
+t/04-history-invariant.t
+t/05-options.t
+t/06-valid-output.t
+t/07-history-items.t
+t/08-unknown-command.t
+t/09-invalid-filename.t
+t/11-browse-without-request.t
+t/12-comments.t
+t/13-command-au.t
+t/14-command-identity.t
+t/15-history-save.t
+t/16-form-fillout.t
+t/17-eval-multiline.t
+t/18-browser-autosync.t
+t/19-value-multi.t
+t/20-restart-without-script.t
+t/21-autofill-re.t
+t/22-complete-command.t
+t/23-check-dumpresponses.t
+t/24-source-file.t
+t/25-save-file-nolink.t
+t/26-form-no-form.t
+t/27-form_number.t
+t/27-index.html
+t/28-cmd-headers.t
+t/28-cmd-title.t
+t/28-html-tableextract.t
+t/29-launch-shell.t
+t/401-server
+t/98-bin.t
+t/99-changes.t
+t/99-manifest.t
+t/99-pod.t
+t/99-todo.t
+t/99-unix-text.t
+t/99-versions.t
+t/source.mech
Modified: trunk/libwww-mechanize-shell-perl/MANIFEST.skip
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/MANIFEST.skip?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/MANIFEST.skip (original)
+++ trunk/libwww-mechanize-shell-perl/MANIFEST.skip Sun Oct 10 20:03:49 2010
@@ -5,10 +5,12 @@
WWW-Mechanize-Shell-*
WWW-Mechanize-Shell-*/
CVS/
+.git/
+MANIFEST.bak
pm_to_blib
pm_to_blib.ts
cvstest
-Makefile
+Makefile$
cover_db/
blibdirs.ts
perlbug.rep
Modified: trunk/libwww-mechanize-shell-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/META.yml?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/META.yml (original)
+++ trunk/libwww-mechanize-shell-perl/META.yml Sun Oct 10 20:03:49 2010
@@ -1,22 +1,30 @@
--- #YAML:1.0
-name: WWW-Mechanize-Shell
-version: 0.48
-abstract: An interactive shell for WWW::Mechanize
-license: ~
-author:
+name: WWW-Mechanize-Shell
+version: 0.50
+abstract: An interactive shell for WWW::Mechanize
+author:
- Max Maischein <corion at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
- Hook::LexWrap: 0.2
- HTML::Display: 0
- HTML::TokeParser::Simple: 2
- LWP: 5.69
- Term::Shell: 0.02
- Test::Harness: 2.3
- URI::URL: 0
- WWW::Mechanize: 1.2
- WWW::Mechanize::FormFiller: 0.05
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires:
+ Hook::LexWrap: 0.2
+ HTML::Display: 0
+ HTML::TokeParser::Simple: 2
+ LWP: 5.69
+ Term::Shell: 0.02
+ Test::Harness: 2.3
+ URI::URL: 0
+ WWW::Mechanize: 1.2
+ WWW::Mechanize::FormFiller: 0.05
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.50
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: trunk/libwww-mechanize-shell-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/README?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/README (original)
+++ trunk/libwww-mechanize-shell-perl/README Sun Oct 10 20:03:49 2010
@@ -42,4 +42,4 @@
You can use this shell under the same terms as Perl itself
-Copyright (C) 2002,2003 Max Maischein (corion at cpan.org)
+Copyright (C) 2002,2010 Max Maischein (corion at cpan.org)
Modified: trunk/libwww-mechanize-shell-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/debian/changelog?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/debian/changelog (original)
+++ trunk/libwww-mechanize-shell-perl/debian/changelog Sun Oct 10 20:03:49 2010
@@ -1,3 +1,14 @@
+libwww-mechanize-shell-perl (0.50-1) UNRELEASED; urgency=low
+
+ * New upstream release
+ * debian/copyright: Update upstream years
+ * debian/patches/01-fix_test_10.patch: Remove patch, test file no
+ longer exists
+ * debian/patches/response-dumper.patch: Remove patch, applied upstream
+ * debian/patches/spelling.patch: Remove patch, applied upstream
+
+ -- Angel Abad <angelabad at gmail.com> Sun, 10 Oct 2010 22:01:15 +0200
+
libwww-mechanize-shell-perl (0.48-3) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libwww-mechanize-shell-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/debian/control?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/debian/control (original)
+++ trunk/libwww-mechanize-shell-perl/debian/control Sun Oct 10 20:03:49 2010
@@ -2,13 +2,14 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7.0.50)
-Build-Depends-Indep: perl, liburi-perl, libhtml-parser-perl,
- libhook-lexwrap-perl, libwww-perl, libwww-mechanize-perl,
- libwww-mechanize-formfiller-perl, libterm-shell-perl,
- libhtml-tokeparser-simple-perl, libhtml-tableextract-perl,
- libtest-mockobject-perl, libtest-pod-perl, libhtml-display-perl, netbase,
- libtest-inline-perl, libtest-without-module-perl, libpod-constants-perl
-Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
+Build-Depends-Indep: libhook-lexwrap-perl (>= 0.2), libhtml-display-perl,
+ libhtml-parser-perl, libhtml-tableextract-perl,
+ libhtml-tokeparser-simple-perl (>= 2), libpod-constants-perl,
+ libterm-shell-perl (>= 0.02), libtest-inline-perl, libtest-mockobject-perl,
+ libtest-pod-perl, libtest-without-module-perl, liburi-perl,
+ libwww-mechanize-formfiller-perl (>= 0.05), libwww-mechanize-perl (>= 1.2),
+ libwww-perl (>= 5.69), netbase, perl
+Maintainer: Angel Abad <angelabad at gmail.com>
Uploaders: Damyan Ivanov <dmn at debian.org>, gregor herrmann <gregoa at debian.org>,
Ansgar Burchardt <ansgar at 43-1.org>
Standards-Version: 3.9.1
@@ -18,9 +19,12 @@
Package: libwww-mechanize-shell-perl
Architecture: all
-Depends: ${perl:Depends}, ${misc:Depends}, liburi-perl, libhtml-parser-perl, libhook-lexwrap-perl, libwww-perl,
- libwww-mechanize-perl, libwww-mechanize-formfiller-perl, libterm-shell-perl, libhtml-tokeparser-simple-perl,
- libhtml-tableextract-perl, libfile-modified-perl, libhtml-display-perl
+Depends: ${misc:Depends}, ${perl:Depends}, libfile-modified-perl,
+ libhook-lexwrap-perl (>= 0.2), libhtml-display-perl, libhtml-parser-perl,
+ libhtml-tableextract-perl, libhtml-tokeparser-simple-perl (>= 2),
+ libterm-shell-perl (>= 0.02), liburi-perl,
+ libwww-mechanize-formfiller-perl (>= 0.05), libwww-mechanize-perl (>= 1.2),
+ libwww-perl (>= 5.69)
Description: interactive shell for WWW::Mechanize
WWW::Mechanize::Shellimplements a www-like shell above WWW::Mechanize and
also has the capability to output crude Perl code that recreates the recorded
Modified: trunk/libwww-mechanize-shell-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/debian/copyright?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/debian/copyright (original)
+++ trunk/libwww-mechanize-shell-perl/debian/copyright Sun Oct 10 20:03:49 2010
@@ -3,15 +3,15 @@
Source: http://search.cpan.org/dist/WWW-Mechanize-Shell/
Name: WWW-Mechanize-Shell
-Copyright: 2002-2008, Max Maischein <corion at cpan.org>
+Copyright: 2002-2010, Max Maischein <corion at cpan.org>
License: Artistic or GPL-1+
Files: debian/*
-Copyright:
- 2007-2008, Michael Mende <debian at menole.net>
- 2007, Damyan Ivanov <dmn at debian.org>
- 2009-2010, gregor herrmann <gregoa at debian.org>
- 2010, Ansgar Burchardt <ansgar at 43-1.org>
+Copyright: 2007, 2008, Michael Mende <debian at menole.net>
+ 2007, Damyan Ivanov <dmn at debian.org>
+ 2009, gregor herrmann <gregoa at debian.org>
+ 2010, Angel Abad <angelabad at gmail.com>
+ 2010, Ansgar Burchardt <ansgar at 43-1.org>
License: Artistic or GPL-1+
License: Artistic
@@ -27,5 +27,5 @@
the Free Software Foundation; either version 1, or (at your option)
any later version.
.
- On Debian GNU/Linux systems, the complete text of version 1 of the GNU
+ On Debian GNU/Linux systems, the complete text of version 1 of the
General Public License can be found in `/usr/share/common-licenses/GPL-1'.
Modified: trunk/libwww-mechanize-shell-perl/lib/WWW/Mechanize/Shell.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/lib/WWW/Mechanize/Shell.pm?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/lib/WWW/Mechanize/Shell.pm (original)
+++ trunk/libwww-mechanize-shell-perl/lib/WWW/Mechanize/Shell.pm Sun Oct 10 20:03:49 2010
@@ -15,7 +15,7 @@
use B::Deparse;
use vars qw( $VERSION @EXPORT %munge_map );
-$VERSION = '0.48';
+$VERSION = '0.50';
@EXPORT = qw( &shell );
=head1 NAME
@@ -318,7 +318,13 @@
};
sub request_dumper { print $_[1]->as_string };
-sub response_dumper { print $_[1]->as_string };
+sub response_dumper {
+ if (ref $_[1] eq 'ARRAY') {
+ print $_[1]->[0]->as_string;
+ } else {
+ print $_[1]->as_string;
+ }
+};
sub re_or_string {
my ($self,$arg) = @_;
@@ -1961,7 +1967,7 @@
=head1 ONLINE HELP
The online help feature is currently a bit broken in C<Term::Shell>,
-but a fix is in the works. Until then, you can reenable the
+but a fix is in the works. Until then, you can re-enable the
dynamic online help by patching C<Term::Shell> :
Remove the three lines
@@ -2030,11 +2036,21 @@
perl -MWWW::Mechanize::Shell -e"shell"
+=head1 REPOSITORY
+
+The public repository of this module is
+L<http://github.com/Corion/WWW-Mechanize-Shell>.
+
+=head1 SUPPORT
+
+The public support forum of this module is
+L<http://perlmonks.org/>.
+
=head1 COPYRIGHT AND LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
-Copyright (C) 2002,2008 Max Maischein
+Copyright (C) 2002,2010 Max Maischein
=head1 AUTHOR
@@ -2044,6 +2060,6 @@
=head1 SEE ALSO
-L<WWW::Mechanize>,L<WWW::Mechanize::FormFiller>
-
-=cut
+L<WWW::Mechanize>,L<WWW::Mechanize::FormFiller>,L<WWW::Mechanize::Firefox>
+
+=cut
Modified: trunk/libwww-mechanize-shell-perl/t/14-command-identity.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/t/14-command-identity.t?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/t/14-command-identity.t (original)
+++ trunk/libwww-mechanize-shell-perl/t/14-command-identity.t Sun Oct 10 20:03:49 2010
@@ -258,11 +258,11 @@
s!\b$code_port\b!$script_port!smg for ($script, $code_output);
#print STDERR "Releasing hook";
undef $s->{request_wrapper};
- {
- local *WWW::Mechanize::Shell::request_dumper = sub { die };
- use HTTP::Request::Common;
- $s->agent->request(GET 'http://google.de/');
- };
+ #{
+ # local *WWW::Mechanize::Shell::request_dumper = sub { die };
+ # use HTTP::Request::Common;
+ # $s->agent->request(GET 'http://google.de/');
+ #};
$s->release_agent;
undef $s;
Modified: trunk/libwww-mechanize-shell-perl/t/99-manifest.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/t/99-manifest.t?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/t/99-manifest.t (original)
+++ trunk/libwww-mechanize-shell-perl/t/99-manifest.t Sun Oct 10 20:03:49 2010
@@ -7,7 +7,9 @@
use File::Spec;
my @files = qw( MANIFEST MANIFEST.skip );
-plan tests => scalar @files * 4;
+plan tests => scalar @files * 4
+ +1 # MANIFEST existence check
+ ;
for my $file (@files) {
ok(-f $file, "$file exists");
@@ -17,6 +19,13 @@
is_deeply([grep(/^$/, @lines)],[], "No empty lines in $file");
is_deeply([grep(/^\s+$/, @lines)],[], "No whitespace-only lines in $file");
is_deeply([grep(/^\s*\S\s+$/, @lines)],[],"No trailing whitespace on lines in $file");
+
+ if ($file eq 'MANIFEST') {
+ chomp @lines;
+ is_deeply([grep { s/\s.*//; ! -f } @lines], [], "All files in $file exist")
+ or do { diag "$_ is mentioned in $file but doesn't exist on disk" for grep { ! -f } @lines };
+ };
+
close F;
};
Modified: trunk/libwww-mechanize-shell-perl/t/99-pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/t/99-pod.t?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/t/99-pod.t (original)
+++ trunk/libwww-mechanize-shell-perl/t/99-pod.t Sun Oct 10 20:03:49 2010
@@ -24,7 +24,7 @@
}
else {
my $blib = File::Spec->catfile(qw(blib lib));
- find(\&wanted, $blib, 'bin');
+ find(\&wanted, grep { -d } ($blib, 'bin'));
plan tests => scalar @files;
foreach my $file (@files) {
pod_file_ok($file);
Modified: trunk/libwww-mechanize-shell-perl/t/99-todo.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/t/99-todo.t?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/t/99-todo.t (original)
+++ trunk/libwww-mechanize-shell-perl/t/99-todo.t Sun Oct 10 20:03:49 2010
@@ -11,8 +11,8 @@
my @files;
my $blib = File::Spec->catfile(qw(blib lib));
-find(\&wanted, $blib, 'bin');
-plan tests => scalar @files;
+find(\&wanted, grep { -d } ($blib, 'bin'));
+plan tests => 2* @files;
foreach my $file (@files) {
source_file_ok($file);
}
@@ -39,4 +39,9 @@
if ( !is( scalar @x, 0, "Looking for XXXes in $file" ) ) {
diag( $_ ) for @x;
}
+ @x = grep /<<<|>>>/, @lines;
+
+ if ( !is( scalar @x, 0, "Looking for <<<<|>>>> in $file" ) ) {
+ diag( $_ ) for @x;
+ }
}
Modified: trunk/libwww-mechanize-shell-perl/t/99-unix-text.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-mechanize-shell-perl/t/99-unix-text.t?rev=63549&op=diff
==============================================================================
--- trunk/libwww-mechanize-shell-perl/t/99-unix-text.t (original)
+++ trunk/libwww-mechanize-shell-perl/t/99-unix-text.t Sun Oct 10 20:03:49 2010
@@ -10,7 +10,7 @@
my @files;
my $blib = File::Spec->catfile(qw(blib lib));
-find(\&wanted, $blib, 'bin');
+find(\&wanted, grep { -d } ($blib, 'bin'));
plan tests => scalar @files;
foreach my $file (@files) {
unix_file_ok($file);
More information about the Pkg-perl-cvs-commits
mailing list