Don't use "strict" in production
authorSean O'Rourke <seano@cpan.org>
Fri, 20 Apr 2012 14:22:29 +0000 (20 08:22 -0600)
committerSean O'Rourke <seano@cpan.org>
Fri, 20 Apr 2012 14:22:29 +0000 (20 08:22 -0600)
lib/Sepia.pm

index 97255a1..d21f3bd 100644 (file)
@@ -50,7 +50,8 @@ BEGIN {
     BEGIN { sub TRACK_REQUIRES () { $ENV{TRACK_REQUIRES}||0 } };
     unshift @INC, \&Sepia::track_requires if TRACK_REQUIRES;
 }
-use strict;
+# uncomment for development:
+# use strict;
 use B;
 use Sepia::Debug;               # THIS TURNS ON DEBUGGING INFORMATION!
 use Cwd 'abs_path';
@@ -349,8 +350,7 @@ sub completions
     my ($type, $str, $sub) = @_;
     my $t;
     my %h = qw(@ ARRAY % HASH & CODE * IO $ SCALAR);
-    my %rh;
-    @rh{values %h} = keys %h;
+    my %rh = reverse %h;
     $type ||= '';
     $t = $type ? $rh{$type} : '';
     my @ret;