fix for pre-5.6 perls

[HTTP-Headers-UserAgent.git] / UserAgent.pm

diff --git a/UserAgent.pm b/UserAgent.pm
index bdda2e3..f82b0f6 100644 (file)
--- a/UserAgent.pm
+++ b/UserAgent.pm
@@ -6,7 +6,7 @@ use HTTP::BrowserDetect;
 
 use vars qw( $VERSION @EXPORT_OK $fh %old );
 
-$VERSION = '3.00';
+$VERSION = '3.01';
 
 @EXPORT_OK = qw( GetPlatform );
 
@@ -160,7 +160,7 @@ sub os {
     linux
     dec bsd
   ) ) {
-    $os ||= $possible if $self->{'bd'}->$possible;
+    $os ||= $possible if $self->{'bd'}->$possible();
   }
   $os = 'macos' if $os =~ /^mac/;
   $os = 'osf1' if $os =~ /^dec/;