burak / CPAN-Parse-HTTP-UserAgent / changeset / 0e586525adf0

@@ -2,6 +2,9 @@ Revision history for Perl extension Pars
 Time zone is UTC+2.
 .16 Wed Sep  2 06:32:43 2009
    => Internal cleanup.
 .15 Sun Aug 30 03:09:49 2009
    => Opera 10 beta support.
    => Work around for version::vpp bug which was causing regressions under

@@ -2,7 +2,7 @@ package Parse::HTTP::UserAgent;
 use strict;
 use vars qw( $VERSION );
-$VERSION = '0.15';
+$VERSION = '0.16';
 use base qw(
     Parse::HTTP::UserAgent::Base::IS
@@ -15,8 +15,8 @@ use overload '""',    => 'name',
              fallback => 1,
+;
 use version;
 use Carp qw( croak );
 use Parse::HTTP::UserAgent::Constants qw(:all);
 use Carp qw( croak );
 BEGIN {
     constant->import( DEBUG => 0 ) if not defined &DEBUG;
@@ -142,7 +142,8 @@ sub _post_parse {
     $self->[UA_EXTRAS] = [ @buf ];
     if ( $self->[UA_TOOLKIT] ) {
-        push @{ $self->[UA_TOOLKIT] }, $self->_numify( $self->[UA_TOOLKIT][1] );
+        push @{ $self->[UA_TOOLKIT] },
              $self->_numify( $self->[UA_TOOLKIT][TK_ORIGINAL_VERSION] );
+    }
     if( $self->[UA_MOZILLA] ) {

@@ -280,7 +280,7 @@ sub _parse_gecko {
         return 1 ;
+    }
-    if ( $self->[UA_TOOLKIT] && $self->[UA_TOOLKIT][0] eq 'Gecko' ) {
+    if ( $self->[UA_TOOLKIT] && $self->[UA_TOOLKIT][TK_NAME] eq 'Gecko' ) {
         ($self->[UA_NAME], $self->[UA_VERSION_RAW]) = split RE_SLASH, $moz;
         if ( $self->[UA_NAME] && $self->[UA_VERSION_RAW] ) {
             $self->[UA_PARSER] = 'mozilla_family:gecko';

@@ -30,6 +30,10 @@ use constant IS_MAXTHON          => ++$O
 use constant IS_EXTENDED         => ++$OID;
 use constant MAXID               =>   $OID;
 use constant TK_NAME             => 0;
 use constant TK_ORIGINAL_VERSION => 1;
 use constant TK_VERSION          => 2;
 use constant RE_FIREFOX_NAMES    => qr{Firefox|Iceweasel|Firebird|Phoenix }xms;
 use constant RE_DOTNET           => qr{ \A [.]NET \s+ CLR \s+ (.+?) \z    }xms;
 use constant RE_WINDOWS_OS       => qr{ \A Win(dows|NT|[0-9]+)?           }xmsi;
@@ -120,6 +124,11 @@ BEGIN {
         list => [qw(
             LIST_ROBOTS
         )],
         tk => [qw(
             TK_NAME
             TK_ORIGINAL_VERSION
             TK_VERSION
         )],
     );
     @EXPORT_OK        = map { @{ $_ } } values %EXPORT_TAGS;