Mon 28 Sep 15:01:03 BST 2009 - Release 0.78
+ Cope with invalid (missing required q parameter) header like:
+ application/json; charset="utf-8"
+
Require Moose for the tests (RT#50066).
Thu 27 Aug 02:21:09 BST 2009 - Release 0.77
my ( $type, $qvalue ) = @{$pair}[ 0, 3 ];
next if $types{$type};
+ # cope with invalid (missing required q parameter) header like:
+ # application/json; charset="utf-8"
+ # http://tools.ietf.org/html/rfc2616#section-14.1
+ unless ( defined $pair->[2] && lc $pair->[2] eq 'q' ) {
+ $qvalue = undef;
+ }
+
unless ( defined $qvalue ) {
$qvalue = 1 - ( ++$counter / 1000 );
}