[svn:parrot] r46446 - trunk/lib/Parrot

[petdance at svn.parrot.org]

Author: petdance
Date: Sun May  9 21:38:57 2010
New Revision: 46446
URL: https://trac.parrot.org/parrot/changeset/46446

Log:
Fixed a potential bug found by Perl::Critic

Modified:
   trunk/lib/Parrot/Headerizer.pm

Modified: trunk/lib/Parrot/Headerizer.pm
==============================================================================
--- trunk/lib/Parrot/Headerizer.pm	Sun May  9 21:26:57 2010	(r46445)
+++ trunk/lib/Parrot/Headerizer.pm	Sun May  9 21:38:57 2010	(r46446)
@@ -91,7 +91,9 @@
 sub valid_macros {
     my $self = shift;
 
-    return sort keys %{$self->{valid_macros}};
+    my @macros = sort keys %{$self->{valid_macros}};
+
+    return @macros;
 }
 
 =item $headerizer->extract_function_declarations($text)