Changeset 19890

Timestamp:

09/25/08 12:35:04 (5 years ago)

Author:

mizuno_takaaki

Message:

lang/perl/App-Hachero: fixed sort subroutine bug

Files:

• lang/perl/App-Hachero/trunk/lib/App/Hachero/Result.pm (modified) (1 diff)

lang/perl/App-Hachero/trunk/lib/App/Hachero/Result.pm

@@ -31 +31 @@
     my $self = shift;
     $self->arrayref([]);
-    my $package = ref $self;
-    no strict 'refs';
-    my $cmp = *{"$package\::cmp"};
-    for my $value (sort $cmp CORE::values %{$self->data}) {
+    for my $value (sort _cmp CORE::values %{$self->data}) {
         CORE::push @{$self->arrayref}, $value;
     }
 }
 
-sub cmp {
+sub _cmp {
     for (@{__PACKAGE__->primary}) {
         if (my $res = $a->{$_} cmp $b->{$_}) {