au の端末における X-Up-Devcap-Multimedia の2桁目(GPS対応)に4が入るようになっていた
K009 などの機種で 4 がはいるようになっていました。
HTTP::MobileAgent では =~ /[23]/ で GPS 対応かどうかを判定していたので、4も許容するようにして解決。
diff --git a/lib/HTTP/MobileAgent/EZweb.pm b/lib/HTTP/MobileAgent/EZweb.pm index 909ade4..c0b4e35 100644 --- a/lib/HTTP/MobileAgent/EZweb.pm +++ b/lib/HTTP/MobileAgent/EZweb.pm @@ -78,7 +78,7 @@ sub _make_display { sub gps_compliant { my $self = shift; my @specs = split //, $self->get_header('x-up-devcap-multimedia') || ''; - return defined $specs[ 1 ] && $specs[ 1 ] =~ /^[23]$/; + return defined $specs[ 1 ] && $specs[ 1 ] =~ /^[234]$/; } sub user_id {
なお、HTTP::MobileAgent の 0.36 で対応済です。HTTP::MobileAgent で gps_compliant をよんでいるようなサイトを運営している方はアップグレードをオススメします。
https://metacpan.org/module/HTTP::MobileAgent