From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Tue, 24 Nov 2015 19:41:35 +0000 (+0100)
Subject: Make query strings deterministic.
X-Git-Url: https://git.sesse.net/?p=pr0n;a=commitdiff_plain;h=f8791f59cba8ddb1bb240d8b4a22423e29f198a3;hp=d8d55b9894e8d602a097e05fba556f236cf869fc

Make query strings deterministic.
---

diff --git a/perl/Sesse/pr0n/Common.pm b/perl/Sesse/pr0n/Common.pm
index cd43338..d72e0cb 100644
--- a/perl/Sesse/pr0n/Common.pm
+++ b/perl/Sesse/pr0n/Common.pm
@@ -128,7 +128,8 @@ sub get_query_string {
 	my $first = 1;
 	my $str = "";
 
-	while (my ($key, $value) = each %$param) {
+	for my $key (sort keys %$param) {
+		my $value = $param->{$key};
 		next unless defined($value);
 		next if (defined($defparam->{$key}) && $value == $defparam->{$key});