projects
/
libwww-opensearch-perl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Imported Upstream version 0.13
[libwww-opensearch-perl.git]
/
lib
/
WWW
/
OpenSearch
/
Agent.pm
diff --git
a/lib/WWW/OpenSearch/Agent.pm
b/lib/WWW/OpenSearch/Agent.pm
index
bc5bbec
..
1b95c0a
100644
(file)
--- a/
lib/WWW/OpenSearch/Agent.pm
+++ b/
lib/WWW/OpenSearch/Agent.pm
@@
-46,7
+46,7
@@
it under the same terms as Perl itself.
=cut
sub new {
=cut
sub new {
- my( $class, @rest ) = @_;
+ my
( $class, @rest ) = @_;
return $class->SUPER::new(
agent => join( '/', __PACKAGE__, $WWW::OpenSearch::VERSION ),
@rest,
return $class->SUPER::new(
agent => join( '/', __PACKAGE__, $WWW::OpenSearch::VERSION ),
@rest,
@@
-57,7
+57,7
@@
sub new {
sub request {
my $self = shift;
sub request {
my $self = shift;
- my $request = shift;
;
+ my $request = shift;
my $response = $self->SUPER::request( $request, @_ );
# allow regular HTTP::Requests to flow through
my $response = $self->SUPER::request( $request, @_ );
# allow regular HTTP::Requests to flow through