r11111 - in /trunk/libwww-mechanize-perl: ./ debian/ lib/WWW/ t/ t/local/
rmayorga-guest at users.alioth.debian.org
rmayorga-guest at users.alioth.debian.org
Tue Dec 11 05:57:45 UTC 2007
Author: rmayorga-guest
Date: Tue Dec 11 05:57:45 2007
New Revision: 11111
URL: http://svn.debian.org/wsvn/?sc=1&rev=11111
Log:
* New upstream version
* merging changlog entries
Added:
trunk/libwww-mechanize-perl/t/find_frame.html
- copied unchanged from r11110, branches/upstream/libwww-mechanize-perl/current/t/find_frame.html
trunk/libwww-mechanize-perl/t/find_frame.t
- copied unchanged from r11110, branches/upstream/libwww-mechanize-perl/current/t/find_frame.t
Modified:
trunk/libwww-mechanize-perl/Changes
trunk/libwww-mechanize-perl/MANIFEST
trunk/libwww-mechanize-perl/META.yml
trunk/libwww-mechanize-perl/Makefile.PL
trunk/libwww-mechanize-perl/debian/changelog
trunk/libwww-mechanize-perl/lib/WWW/Mechanize.pm
trunk/libwww-mechanize-perl/t/local/back.t
trunk/libwww-mechanize-perl/t/local/click.t
trunk/libwww-mechanize-perl/t/local/click_button.t
trunk/libwww-mechanize-perl/t/local/failure.t
trunk/libwww-mechanize-perl/t/local/follow.t
trunk/libwww-mechanize-perl/t/local/form.t
trunk/libwww-mechanize-perl/t/local/get.t
trunk/libwww-mechanize-perl/t/local/overload.t
trunk/libwww-mechanize-perl/t/local/page_stack.t
trunk/libwww-mechanize-perl/t/local/referer.t
trunk/libwww-mechanize-perl/t/local/reload.t
trunk/libwww-mechanize-perl/t/local/submit.t
Modified: trunk/libwww-mechanize-perl/Changes
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/Changes?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/Changes (original)
+++ trunk/libwww-mechanize-perl/Changes Tue Dec 11 05:57:45 2007
@@ -1,18 +1,27 @@
Revision history for WWW::Mechanize
-1.32 Tue Oct 30 12:02:17 CDT 2007
-========================================
Please note that WWW::Mechanize and Test::WWW::Mechanize are no
longer using rt.cpan.org for bug tracking. They are now being
tracked via Google Code at
http://code.google.com/p/www-mechanize/issues/list
+Mech now has its own mailing list at Google Groups:
+http://groups.google.com/group/www-mechanize-users
+
+1.34 Mon Dec 10 00:30:39 CST 2007
+========================================
+[FIXES]
+Many fixes to make the test suite more portable.
+
+
+1.32 Tue Oct 30 12:02:17 CDT 2007
+========================================
[ENHANCEMENTS]
Added dump methods to mirror mech-dump:
* $mech->dump_images()
* $mech->dump_links()
* $mech->dump_forms()
-$ $mech->dump_all()
+* $mech->dump_all()
Sanity checks in the WWW::Mechanize::Image constructor. Every Image
must have a "url" and "tag" field passed in to it.
Modified: trunk/libwww-mechanize-perl/MANIFEST
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/MANIFEST?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/MANIFEST (original)
+++ trunk/libwww-mechanize-perl/MANIFEST Tue Dec 11 05:57:45 2007
@@ -24,6 +24,8 @@
t/die.t
t/field.html
t/field.t
+t/find_frame.html
+t/find_frame.t
t/find_image.t
t/find_inputs.html
t/find_inputs.t
Modified: trunk/libwww-mechanize-perl/META.yml
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/META.yml?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/META.yml (original)
+++ trunk/libwww-mechanize-perl/META.yml Tue Dec 11 05:57:45 2007
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: WWW-Mechanize
-version: 1.32
+version: 1.34
abstract: Handy web browsing in a Perl object
license: ~
generated_by: ExtUtils::MakeMaker version 6.36
@@ -29,3 +29,9 @@
version: 1.2
author:
- Andy Lester <andy at petdance.com>
+resources:
+ license: http://dev.perl.org/licenses/
+ homepage: http://code.google.com/p/www-mechanize/
+ bugtracker: http://code.google.com/p/www-mechanize/issues/list
+ Repository: http://code.google.com/p/www-mechanize/source
+ MailingList: http://groups.google.com/group/www-mechanize-users
Modified: trunk/libwww-mechanize-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/Makefile.PL?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/Makefile.PL (original)
+++ trunk/libwww-mechanize-perl/Makefile.PL Tue Dec 11 05:57:45 2007
@@ -1,6 +1,7 @@
package main;
-require 5.6.1;
+require 5.006001;
+
use strict;
use warnings;
use ExtUtils::MakeMaker qw( WriteMakefile );
@@ -50,6 +51,18 @@
test => { TESTS => join( ' ', @tests ) },
clean => { FILES => 'WWW-Mechanize-*' },
};
+
+if ( $ExtUtils::MakeMaker::VERSION eq '6.36' ) {
+ $parms->{EXTRA_META} = <<EOF;
+resources:
+ license: http://dev.perl.org/licenses/
+ homepage: http://code.google.com/p/www-mechanize/
+ bugtracker: http://code.google.com/p/www-mechanize/issues/list
+ Repository: http://code.google.com/p/www-mechanize/source
+ MailingList: http://groups.google.com/group/www-mechanize-users
+EOF
+ }
+
eval { require LWP; };
if (!$@) {
Modified: trunk/libwww-mechanize-perl/debian/changelog
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/debian/changelog?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/debian/changelog (original)
+++ trunk/libwww-mechanize-perl/debian/changelog Tue Dec 11 05:57:45 2007
@@ -1,5 +1,5 @@
-libwww-mechanize-perl (1.32-1) unstable; urgency=low
-
+libwww-mechanize-perl (1.34-1) unstable; urgency=low
+
[ Gregor Herrmann ]
* debian/control: Added: Vcs-Svn field (source stanza); Vcs-Browser
field (source stanza); Homepage field (source stanza).
@@ -29,7 +29,7 @@
access. - Closes: #432485 FTBFS bug
* move patch for adding "SEE ALSO" to the pods to be manage with quilt
- -- Rene Mayorga <rmayorga at debian.org.sv> Sat, 01 Dec 2007 16:20:23 -0600
+ -- Rene Mayorga <rmayorga at debian.org.sv> Mon, 10 Dec 2007 23:57:05 -0600
libwww-mechanize-perl (1.30-2) unstable; urgency=low
Modified: trunk/libwww-mechanize-perl/lib/WWW/Mechanize.pm
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/lib/WWW/Mechanize.pm?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/lib/WWW/Mechanize.pm (original)
+++ trunk/libwww-mechanize-perl/lib/WWW/Mechanize.pm Tue Dec 11 05:57:45 2007
@@ -6,11 +6,11 @@
=head1 VERSION
-Version 1.32
-
-=cut
-
-our $VERSION = '1.32';
+Version 1.34
+
+=cut
+
+our $VERSION = '1.34';
=head1 SYNOPSIS
@@ -325,8 +325,8 @@
L<WWW::Mechanize::Link> object.
The results are stored internally in the agent object, but you don't
-know that. Just use the accessors listed below. Poking at the internals
-is deprecated and subject to change in the future.
+know that. Just use the accessors listed below. Poking at the
+internals is deprecated and subject to change in the future.
C<get()> is a well-behaved overloaded version of the method in
L<LWP::UserAgent>. This lets you do things like
@@ -335,6 +335,10 @@
and you can rest assured that the parms will get filtered down
appropriately.
+
+B<NOTE:> Because C<:content_file> causes the page contents to be
+stored in a file instead of the response object, some Mech functions
+that expect it to be there won't work as expected. Use with caution.
=cut
@@ -1624,6 +1628,8 @@
Submits the page, without specifying a button to click. Actually,
no button is clicked at all.
+Returns an L<HTTP::Response> object.
+
This used to be a synonym for C<< $mech->click( 'submit' ) >>, but is no
longer so.
@@ -2513,6 +2519,12 @@
__END__
+=head1 REQUESTS & BUGS
+
+The bug queue for WWW::Mechanize and Test::WWW::Mechanize is at
+L<http://code.google.com/p/www-mechanize/issues/list>. Please do
+not add any tickets to the old queue at L<http://rt.cpan.org/>.
+
=head1 WWW::MECHANIZE'S SUBVERSION REPOSITORY
Mech and Test::WWW::Mechanize are both hosted at Google Code:
@@ -2552,13 +2564,18 @@
=over 4
+=item * WWW::Mechanize mailing list
+
+The Mech mailing list is at
+L<http://groups.google.com/group/www-mechanize-users> and is specific
+to Mechanize, unlike the LWP mailing list below. Although it is a
+users list, all development discussion takes place here, too.
+
=item * LWP mailing list
The LWP mailing list is at
L<http://lists.perl.org/showlist.cgi?name=libwww>, and is more
-user-oriented and well-populated than the WWW::Mechanize Development
-list. This is a good list for Mech users, since LWP is the basis
-for Mech.
+user-oriented and well-populated than the WWW::Mechanize list.
=item * Perlmonks
@@ -2661,19 +2678,6 @@
=item * L<WWW::Yahoo::Groups>
=back
-
-=head1 REQUESTS & BUGS
-
-Please report any requests, suggestions or (gasp!) bugs via the
-excellent RT bug-tracking system at http://rt.cpan.org/, or email to
-C<bug-WWW-Mechanize at rt.cpan.org>. This makes it much easier for
-me to track things.
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=WWW-Mechanize> is the RT queue
-for Mechanize. Please check to see if your bug has already been reported.
-
-Please note that this is NOT for support requests. Please be sure
-to read the FAQ if you have support requests.
=head1 ACKNOWLEDGEMENTS
Modified: trunk/libwww-mechanize-perl/t/local/back.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/back.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/back.t (original)
+++ trunk/libwww-mechanize-perl/t/local/back.t Tue Dec 11 05:57:45 2007
@@ -7,6 +7,7 @@
use LocalServer;
use HTTP::Daemon;
use HTTP::Response;
+
=head1 NAME
@@ -18,10 +19,9 @@
=cut
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
- delete @ENV{ qw( http_proxy HTTP_PROXY ) };
- delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
-
}
my $mech = WWW::Mechanize->new(cookie_jar => {});
@@ -126,7 +126,7 @@
is( scalar @{$mech->{page_stack}}, 0, 'Pre-404 check' );
-my $server404 = HTTP::Daemon->new or die;
+my $server404 = HTTP::Daemon->new(LocalAddr => 'localhost') or die;
my $server404url = $server404->url;
die 'Cannot fork' if (! defined (my $pid404 = fork()));
@@ -146,7 +146,8 @@
}
$mech->get($server404url);
-is( $mech->status, 404 , '404 check');
+is( $mech->status, 404 , '404 check') or
+ diag( qq{\$server404url=$server404url\n\$mech->content="}, $mech->content, qq{"\n} );
is( scalar @{$mech->{page_stack}}, 1, 'Even 404s get on the stack' );
Modified: trunk/libwww-mechanize-perl/t/local/click.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/click.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/click.t (original)
+++ trunk/libwww-mechanize-perl/t/local/click.t Tue Dec 11 05:57:45 2007
@@ -6,8 +6,9 @@
use LocalServer;
use Test::More tests => 10;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/click_button.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/click_button.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/click_button.t (original)
+++ trunk/libwww-mechanize-perl/t/local/click_button.t Tue Dec 11 05:57:45 2007
@@ -6,8 +6,9 @@
use LocalServer;
use Test::More tests => 18;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/failure.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/failure.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/failure.t (original)
+++ trunk/libwww-mechanize-perl/t/local/failure.t Tue Dec 11 05:57:45 2007
@@ -14,8 +14,9 @@
plan tests => 16;
}
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/follow.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/follow.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/follow.t (original)
+++ trunk/libwww-mechanize-perl/t/local/follow.t Tue Dec 11 05:57:45 2007
@@ -7,8 +7,9 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/form.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/form.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/form.t (original)
+++ trunk/libwww-mechanize-perl/t/local/form.t Tue Dec 11 05:57:45 2007
@@ -7,8 +7,9 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/get.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/get.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/get.t (original)
+++ trunk/libwww-mechanize-perl/t/local/get.t Tue Dec 11 05:57:45 2007
@@ -7,8 +7,10 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
+
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/overload.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/overload.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/overload.t (original)
+++ trunk/libwww-mechanize-perl/t/local/overload.t Tue Dec 11 05:57:45 2007
@@ -30,8 +30,9 @@
=cut
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/page_stack.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/page_stack.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/page_stack.t (original)
+++ trunk/libwww-mechanize-perl/t/local/page_stack.t Tue Dec 11 05:57:45 2007
@@ -7,8 +7,9 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/referer.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/referer.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/referer.t (original)
+++ trunk/libwww-mechanize-perl/t/local/referer.t Tue Dec 11 05:57:45 2007
@@ -4,11 +4,11 @@
use strict;
use FindBin;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
-
use Test::More tests => 13;
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/reload.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/reload.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/reload.t (original)
+++ trunk/libwww-mechanize-perl/t/local/reload.t Tue Dec 11 05:57:45 2007
@@ -7,8 +7,9 @@
use lib 't/local';
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
Modified: trunk/libwww-mechanize-perl/t/local/submit.t
URL: http://svn.debian.org/wsvn/trunk/libwww-mechanize-perl/t/local/submit.t?rev=11111&op=diff
==============================================================================
--- trunk/libwww-mechanize-perl/t/local/submit.t (original)
+++ trunk/libwww-mechanize-perl/t/local/submit.t Tue Dec 11 05:57:45 2007
@@ -6,8 +6,9 @@
use Test::More tests => 13;
use LocalServer;
-BEGIN { delete @ENV{ qw( http_proxy HTTP_PROXY ) }; }
BEGIN {
+ delete @ENV{ grep { lc eq 'http_proxy' } keys %ENV };
+ delete @ENV{ qw( IFS CDPATH ENV BASH_ENV ) };
use_ok( 'WWW::Mechanize' );
}
More information about the Pkg-perl-cvs-commits
mailing list