diff options
author | Sergei Trofimovich <slyich@gmail.com> | 2022-09-09 17:04:02 -0500 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2022-09-09 17:51:25 -0500 |
commit | c2ab755698db245898a4cc89149eb5df256e4bd0 (patch) | |
tree | a7ede9b64caaca8e74bee831c204b3aee8821522 | |
parent | 31f673434ee402258b45e958c88acc8725d82b1a (diff) | |
download | autoconf-c2ab755698db245898a4cc89149eb5df256e4bd0.tar.gz |
autoconf: store autom4te request keys in sorted order
Notced unstable key order when debugging unrelated bug.
Data::Dumper's SortKeys() makes ordering stable and decreases
diffs from run to run. No functional change otherwise.
* lib/Autom4te/C4che.pm
* lib/Autom4te/Request.pm: Sort request keys in serialization.
Copyright-paperwork-exempt: yes
-rw-r--r-- | lib/Autom4te/C4che.pm | 2 | ||||
-rw-r--r-- | lib/Autom4te/Request.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/Autom4te/C4che.pm b/lib/Autom4te/C4che.pm index 8b7c3c11..e9561809 100644 --- a/lib/Autom4te/C4che.pm +++ b/lib/Autom4te/C4che.pm @@ -158,7 +158,7 @@ sub marshall ($) my $res = ''; my $marshall = Data::Dumper->new ([\@request], [qw (*request)]); - $marshall->Indent(2)->Terse(0); + $marshall->Indent(2)->Terse(0)->Sortkeys(1); $res = $marshall->Dump . "\n"; return $res; diff --git a/lib/Autom4te/Request.pm b/lib/Autom4te/Request.pm index c137ef21..1b922f7d 100644 --- a/lib/Autom4te/Request.pm +++ b/lib/Autom4te/Request.pm @@ -63,7 +63,7 @@ sub marshall($) # CALLER is an object: instance method. my $marshall = Data::Dumper->new ([$caller]); - $marshall->Indent(2)->Terse(0); + $marshall->Indent(2)->Terse(0)->Sortkeys(1); $res = $marshall->Dump . "\n"; return $res; |