put the prototypes line in the right place

[imager.git] / regops.perl

diff --git a/regops.perl b/regops.perl
index a6f9b5f5df837098d32620fe57f83e126aba52ce..dad20856aea83d02631237a4789c8f5d35126eb7 100644 (file)
--- 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