Permalink
Browse files

Cooler User-Agent string!

  • Loading branch information...
1 parent 85ee3f9 commit c2d8520ad35f86bf85121069ad254f24d1dd93d1 @cosimo committed Aug 24, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/LWP/Simple.pm
View
@@ -46,7 +46,7 @@ method request_shell (RequestType $rt, Str $url, %headers = {}, Any $content?) {
my ($scheme, $hostname, $port, $path, $auth) = self.parse_url($url);
%headers{'Connection'} = 'close';
- %headers{'User-Agent'} //= "Perl6-LWP-Simple/$VERSION";
+ %headers{'User-Agent'} //= "LWP::Simple/$VERSION Perl6/$*PERL<version>";
if $auth {
$hostname = $auth<host>;

0 comments on commit c2d8520

Please sign in to comment.