more sensible hash vs hashref checking
Graham Knop [Tue, 3 Nov 2015 23:11:25 +0000 (18:11 -0500)]
lib/strictures.pm

index 91b4018..79ffcc0 100644 (file)
@@ -106,7 +106,7 @@ our $Smells_Like_VCS;
 
 sub import {
   my $class = shift;
-  my %opts = ref $_[0] ? %{$_[0]} : @_;
+  my %opts = @_ == 1 ? %{$_[0]} : @_;
   if (!exists $opts{version}) {
     $opts{version}
       = exists $^H{strictures_enable} ? delete $^H{strictures_enable}