Show
Ignore:
Timestamp:
12/31/07 03:11:55 (6 years ago)
Author:
tokuhirom
Message:

lang/perl/HTTP-MobileAgent?-Plugin-Locator: little bit configurable.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/HTTP-MobileAgent-Plugin-Locator/trunk/lib/HTTP/MobileAgent/Plugin/Locator.pm

    r3835 r3836  
    99 
    1010our $VERSION = '0.01'; 
     11 
     12our $DOCOMO_GPS_COMPLIANT_MODELS = qr/(?:90[345]|SA[78]0[02]i)/; 
    1113 
    1214sub import { 
     
    2426    my $self = shift; 
    2527    if ( $self->is_docomo ) { 
    26         return $self->model =~ /(?:90[345]|SA[78]0[02]i)/; 
     28        return $self->model =~ $DOCOMO_GPS_COMPLIANT_MODELS; 
    2729    } elsif ( $self->is_ezweb ) { 
    2830        my @specs = split //, $ENV{ HTTP_X_UP_DEVCAP_MULTIMEDIA } || '';