From 1397922cf41173cce92c0022347dc57866e829ee Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 21 Jan 2002 07:32:16 +0000 Subject: [PATCH] fix for pre-5.6 perls --- Changes | 3 +++ README | 6 +++--- UserAgent.pm | 4 ++-- index.html | 8 ++++---- 4 files changed, 12 insertions(+), 9 deletions(-) diff --git a/Changes b/Changes index 77b5a0b..33d04db 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,8 @@ Revision history for Perl extension HTTP::Headers::UserAgent. +3.01 Sun Jan 20 23:27:57 2002 + - fix for pre-5.6 perl + 3.00 Wed Aug 8 04:20:00 2001 - depriciated; rewrite as wrapper around HTTP::BrowserDetect diff --git a/README b/README index 1feed94..df66366 100644 --- a/README +++ b/README @@ -1,6 +1,6 @@ -HTTP::Headers::UserAgent v3.00 +HTTP::Headers::UserAgent v3.01 - Copyright (c) 2001 Ivan Kohler. All rights reserved. + Copyright (c) 2002 Ivan Kohler. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. @@ -8,7 +8,7 @@ This is a class that deals with the HTTP User-Agent header. It will parse the header, and (hopefully) report the correct platform, operating system, browser, and browser version. -This is version 3.00 of the HTTP::Headers::UserAgent class. It is now +This is version 3.01 of the HTTP::Headers::UserAgent class. It is now depriciated, and the code is a wrapper around the more well-maintained HTTP::BrowserDetect module. You are advised to switch to HTTP::BrowserDetect. While the interface provides backward-compatibility with version 1.00, it is diff --git a/UserAgent.pm b/UserAgent.pm index bdda2e3..f82b0f6 100644 --- 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/; diff --git a/index.html b/index.html index 3fea4df..be517a6 100644 --- a/index.html +++ b/index.html @@ -1,9 +1,9 @@ HTTP::Headers::UserAgent - parse User-Agent headers 
-HTTP::Headers::UserAgent v3.00
+HTTP::Headers::UserAgent v3.01
 
-Copyright (c) 2001 Ivan Kohler.  All rights reserved.
+Copyright (c) 2002 Ivan Kohler.  All rights reserved.
 This program is free software; you can redistribute it and/or modify it under
 the same terms as Perl itself.
 
@@ -11,13 +11,13 @@ This is a class that deals with the HTTP User-Agent header.  It will parse
 the header, and (hopefully) report the correct platform, operating system,
 browser, and browser version.
 
-This is version 3.00 of the HTPP::Headers::UserAgent class.  It is now
+This is version 3.01 of the HTPP::Headers::UserAgent class.  It is now
 depriciated, and the code is a wrapper around the more well-maintained
 HTTP::BrowserDetect module.  You are advised to switch to HTTP::BrowserDetect.
 While the interface provides backward-compatibility with version 1.00, it is
 not based on the 1.00 code.
 
-Download HTTP-Headers-UserAgent v3.00
+Download HTTP-Headers-UserAgent v3.01
 
 To install:
 	perl Makefile.PL
-- 
2.11.0