[Catalyst-commits] r7134 - trunk/Config-Any/lib/Config

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2007-11-14 02:27:16 +0000 (Wed, 14 Nov 2007)
New Revision: 7134

Modified:
   trunk/Config-Any/lib/Config/Any.pm
Log:
remove each() from the docs

Modified: trunk/Config-Any/lib/Config/Any.pm
===================================================================
--- trunk/Config-Any/lib/Config/Any.pm	2007-11-13 20:13:40 UTC (rev 7133)
+++ trunk/Config-Any/lib/Config/Any.pm	2007-11-14 02:27:16 UTC (rev 7134)
@@ -25,7 +25,7 @@
     my $cfg = Config::Any->load_files({files => \@filepaths, ... });
 
     for (@$cfg) {
-        my ($filename, $config) = each %$_;
+        my ($filename, $config) = %$_;
         $class->config($config);
         warn "loaded config from file: $filename";
     }