X-Git-Url: http://git.imager.perl.org/imager.git/blobdiff_plain/3a6bb91bbc0016b2e8a4027fe13a7d54984ca0ab..53a6bbd48b0530c5e3f013ddd242db8960b79b80:/regops.perl

diff --git a/regops.perl b/regops.perl
index a6f9b5f5..dad20856 100644
--- a/regops.perl
+++ b/regops.perl
@@ -44,7 +44,9 @@ while (<IN>) {
   }
 }
 print OUT "\n\@EXPORT = qw(@ops);\n\n";
-print OUT Data::Dumper->Dump([\%attr],["*Attr"]);
+my $dumper = Data::Dumper->new([\%attr],["*Attr"]);
+$dumper->Sortkeys(1);
+print OUT $dumper->Dump;
 print OUT "\$MaxOperands = $max_opr;\n";
 print OUT qq/\$PackCode = "$reg_pack";\n/;
 print OUT <<'EOS';
@@ -79,7 +81,7 @@ Tony Cook, tony@develop-help.com
 
 =head1 SEE ALSO
 
-perl(1), Imager(3), http://imager.perl.org/~addi/perl/Imager/
+perl(1), Imager(3), http://imager.perl.org/
 
 =cut