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 8b7c3c1..e956180 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 c137ef2..1b922f7 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; |
