Skip to content

Comparing changes

Choose two branches to see what’s changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
...
  • 2 commits
  • 1 file changed
  • 0 commit comments
  • 2 contributors
Commits on May 02, 2012
@thomblake thomblake sorts keys when iterating for consistency across perl implementations
fixes #34
a4c34d0
Commits on May 03, 2012
@oalders Merge pull request #35 from thomblake/master
sorts keys when iterating for consistency across perl implementations
f24533b
Showing with 3 additions and 3 deletions.
  1. +3 −3 lib/HTTP/BrowserDetect.pm
View
6 lib/HTTP/BrowserDetect.pm
@@ -136,7 +136,7 @@ push @ALL_TESTS,
(
@OS_TESTS, @WINDOWS_TESTS, @MAC_TESTS,
@UNIX_TESTS, @BSD_TESTS, @GAMING_TESTS,
- keys %DEVICE_TESTS, @BROWSER_TESTS, @IE_TESTS,
+ sort keys %DEVICE_TESTS, @BROWSER_TESTS, @IE_TESTS,
@OPERA_TESTS, @AOL_TESTS, @NETSCAPE_TESTS,
@FIREFOX_TESTS, @ENGINE_TESTS, @ROBOT_TESTS,
@MISC_TESTS,
@@ -1134,7 +1134,7 @@ sub device {
my ( $self, $check ) = _self_or_default( @_ );
- foreach my $device ( keys %DEVICE_TESTS ) {
+ foreach my $device ( sort keys %DEVICE_TESTS ) {
return $device if ( $self->$device );
}
@@ -1206,7 +1206,7 @@ sub browser_properties {
my ( $self, $check ) = _self_or_default( @_ );
my @browser_properties;
- foreach my $property ( keys %{ $self->{tests} } ) {
+ foreach my $property ( sort keys %{ $self->{tests} } ) {
push @browser_properties, lc( $property )
if ( ${ $self->{tests} }{$property} );
}

No commit comments for this range

Something went wrong with that request. Please try again.