Add a UA string to river script so that NEILB's web server doesn't re…

…ject it.
metacpan · May 6, 2016 · de142a2 · de142a2
1 parent da9118c
commit de142a2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/MetaCPAN/Script/River.pm b/lib/MetaCPAN/Script/River.pm
@@ -5,7 +5,7 @@ use namespace::autoclean;
 
 use JSON::MaybeXS qw( decode_json );
 use Log::Contextual qw( :log :dlog );
-use LWP::UserAgent;
+use LWP::UserAgent ();
 use MetaCPAN::Types qw( ArrayRef Str Uri);
 
 with 'MetaCPAN::Role::Script', 'MooseX::Getopt';
@@ -21,7 +21,7 @@ has river_url => (
 has _ua => (
     is      => 'ro',
     isa     => 'LWP::UserAgent',
-    default => sub { LWP::UserAgent->new },
+    default => sub { LWP::UserAgent->new( agent => 'MetaCPAN' ) },
 );
 
 sub run {