cvsuser 05/03/27 15:12:43
Modified: classes pmc2c2.pl
Log:
Patch #34586 from Peter Sinnott (bugfix for a sort), plus a linebreak for
readability.
Revision Changes Path
1.28 +3 -2 parrot/classes/pmc2c2.pl
Index: pmc2c2.pl
===================================================================
RCS file: /cvs/public/parrot/classes/pmc2c2.pl,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -r1.27 -r1.28
--- pmc2c2.pl 25 Mar 2005 10:39:14 -0000 1.27
+++ pmc2c2.pl 27 Mar 2005 23:12:43 -0000 1.28
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2005 The Perl Foundation. All Rights Reserved.
-# $Id: pmc2c2.pl,v 1.27 2005/03/25 10:39:14 leo Exp $
+# $Id: pmc2c2.pl,v 1.28 2005/03/27 23:12:43 chromatic Exp $
=head1 NAME
@@ -453,7 +453,8 @@
next if $n eq 'default';
my %parent_hash = %{$sub->{flags}{extends}};
- my @parents = sort { $parent_hash{a} <=> $parent_hash{$b} } keys
%parent_hash;
+ my @parents = sort { $parent_hash{$a} <=> $parent_hash{$b} }
+ keys %parent_hash;
for my $parent (@parents) {
next if exists $class->{has_parent}{$parent};
