projects
/
HTTP-Headers-UserAgent.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix for pre-5.6 perls
[HTTP-Headers-UserAgent.git]
/
UserAgent.pm
diff --git
a/UserAgent.pm
b/UserAgent.pm
index
bdda2e3
..
f82b0f6
100644
(file)
--- a/
UserAgent.pm
+++ b/
UserAgent.pm
@@
-6,7
+6,7
@@
use HTTP::BrowserDetect;
use vars qw( $VERSION @EXPORT_OK $fh %old );
use vars qw( $VERSION @EXPORT_OK $fh %old );
-$VERSION = '3.0
0
';
+$VERSION = '3.0
1
';
@EXPORT_OK = qw( GetPlatform );
@EXPORT_OK = qw( GetPlatform );
@@
-160,7
+160,7
@@
sub os {
linux
dec bsd
) ) {
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/;
}
$os = 'macos' if $os =~ /^mac/;
$os = 'osf1' if $os =~ /^dec/;