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;