diff options
| author | ivan <ivan> | 2002-01-21 07:32:16 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-01-21 07:32:16 +0000 |
| commit | 1397922cf41173cce92c0022347dc57866e829ee (patch) | |
| tree | 7982deb1dcab76de8ffae2328606e508c04f1a3a | |
| parent | d0e632b26b3ed0a126599a4b68f9163de4ff6fa4 (diff) | |
fix for pre-5.6 perlsHEADHTTP_HEADERS_USERAGENT_3_01master
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | README | 6 | ||||
| -rw-r--r-- | UserAgent.pm | 4 | ||||
| -rw-r--r-- | index.html | 8 |
4 files changed, 12 insertions, 9 deletions
@@ -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 @@ -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/; @@ -1,9 +1,9 @@ <HTML><HEAD><TITLE>HTTP::Headers::UserAgent - parse User-Agent headers</TITLE></HEAD> <BODY> <PRE> -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. <FONT SIZE="+2"><B>It is now +This is version 3.01 of the HTPP::Headers::UserAgent class. <FONT SIZE="+2"><B>It is now depriciated</B></FONT>, and the code is a wrapper around the more well-maintained <a href="http://search.cpan.org/search?dist=HTTP-BrowserDetect">HTTP::BrowserDetect module</a>. You are advised to switch to <a href="http://search.cpan.org/search?dist=HTTP-BrowserDetect">HTTP::BrowserDetect</a>. While the interface provides backward-compatibility with version 1.00, it is not based on the 1.00 code. -<a href="HTTP-Headers-UserAgent-3.00.tar.gz">Download HTTP-Headers-UserAgent v3.00</a> +<a href="HTTP-Headers-UserAgent-3.01.tar.gz">Download HTTP-Headers-UserAgent v3.01</a> To install: perl Makefile.PL |