summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2015-05-01 19:46:28 +0200
committerDaniel Friesel <derf@finalrewind.org>2015-05-01 19:46:28 +0200
commitdee74149885285a35ade3f2d4f3def79a8fc8f05 (patch)
treeb073332a81f9b1eef96bafe1ff2377918a4e3fde
parent56afae1f7986850f786e1347d1dac61d810cde47 (diff)
IRIS->new: Actually use the lwp_options default when it is not set
-rw-r--r--Changelog4
-rw-r--r--lib/Travel/Status/DE/IRIS.pm2
2 files changed, 5 insertions, 1 deletions
diff --git a/Changelog b/Changelog
index 521eb4d..377b91a 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,7 @@
+git HEAD
+
+ * IRIS->new: Fix default lwp_options value (was documented, but not used)
+
Travel::Status::DE::IRIS 1.00 - Fri May 01 2015
* IRIS->new: Use lwp_options to explicitly pass arguments to the
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index 1b153e0..671cef2 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -21,7 +21,7 @@ sub new {
my %lwp_options = %{ $opt{lwp_options} // { timeout => 10 } };
- my $ua = LWP::UserAgent->new( %{ $opt{lwp_options} } );
+ my $ua = LWP::UserAgent->new(%lwp_options);
if ( not $opt{station} ) {
confess('station flag must be passed');