From: Sean O'Rourke <seano@cpan.org>
Date: Fri, 20 Apr 2012 14:22:29 +0000 (-0600)
Subject: Don't use "strict" in production
X-Git-Url: https://repo.or.cz/w/sepia.git/commitdiff_plain/16bb7214daa66ba5b476d7a4a8f7c374ab45867e

Don't use "strict" in production
---

diff --git a/lib/Sepia.pm b/lib/Sepia.pm
index 97255a1..d21f3bd 100644
--- a/lib/Sepia.pm
+++ b/lib/Sepia.pm
@@ -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;