Fixes language detection for AOL browser
Olaf Alders
12 years ago
| 1070 | 1070 | } |
| 1071 | 1071 | } |
| 1072 | 1072 | |
| 1073 | if ( $self->aol && $self->user_agent =~ m/;([A-Z]{2,2})_([A-Z]{2,2})/ ) { | |
| 1074 | return { language => $1, country => $2 }; | |
| 1075 | } | |
| 1076 | ||
| 1073 | 1077 | if ( $self->user_agent =~ m/\b([a-z]{2})-([A-Za-z]{2})\b/xms ) { |
| 1074 | 1078 | return { language => uc $1, country => uc $2 }; |
| 1075 | 1079 | } |