Changeset 5893

Timestamp:

07/29/05 20:48:16 (3 years ago)

Author:

Aankhen

svk:copy_cache_prev:

7758

Message:

* HTTP::Headers: fixed small mistake in &:sorted_field_names.

Files:

• ext/libwww-perl/lib/HTTP/Headers.pm (modified) (1 diff)

ext/libwww-perl/lib/HTTP/Headers.pm

@@ -144 +144 @@
   return %:headers.key.sort:{
     (%header_order{$^a} || 999) <=> (%header_order{$^b} || 999) ||
-    $a cmp $b
+    $^a cmp $^b
   };