File tree Expand file tree Collapse file tree 1 file changed +5
-6
lines changed Expand file tree Collapse file tree 1 file changed +5
-6
lines changed Original file line number Diff line number Diff line change @@ -136,12 +136,11 @@ use warnings;
136
136
137
137
our $VERSION = ' 2.13' ;
138
138
139
- use Tie::RefHash;
140
- use HTTP::Request 1.30;
141
- use LWP::UserAgent 6.45;
142
- use HTML::Form 1.00;
139
+ use Tie::RefHash ();
140
+ use HTTP::Request 1.30 ();
141
+ use HTML::Form 1.00 ();
143
142
use HTML::TokeParser ();
144
- use Scalar::Util qw( tainted) ;
143
+ use Scalar::Util qw( tainted ) ;
145
144
146
145
use base ' LWP::UserAgent' ;
147
146
@@ -2535,7 +2534,7 @@ sub submit_form {
2535
2534
# Assume that each filtered set only has a given form object once.
2536
2535
# So we can count occurrences.
2537
2536
#
2538
- tie my %c , ' Tie::RefHash' or $self -> die(' Cannot determine a form to use' );
2537
+ tie my %c , Tie::RefHash:: or $self -> die(' Cannot determine a form to use' );
2539
2538
foreach (@filtered_sets ) {
2540
2539
foreach (@$_ ) {
2541
2540
++$c {$_ };
You can’t perform that action at this time.
0 commit comments