cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

[stas]

stas        2004/05/14 13:57:40

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  nicely sort the autogenerated newXS entries
  
  Revision  Changes    Path
  1.72      +1 -1      modperl-2.0/lib/ModPerl/WrapXS.pm
  
  Index: WrapXS.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
  retrieving revision 1.71
  retrieving revision 1.72
  diff -u -u -r1.71 -r1.72
  --- WrapXS.pm 4 May 2004 06:11:31 -0000       1.71
  +++ WrapXS.pm 14 May 2004 20:57:40 -0000      1.72
  @@ -488,7 +488,7 @@
       print $fh "    items = items; /* -Wall */\n\n";
   
       if (my $newxs = $self->{newXS}->{$module}) {
  -        for my $xs (@$newxs) {
  +        for my $xs (sort { $a->[0] cmp $b->[0] } @$newxs) {
               print $fh qq{   cv = newXS("$xs->[0]", $xs->[1], __FILE__);\n};
               print $fh qq{   GvUNIQUE_on(CvGV(cv));\n} if GvUNIQUE;
           }