X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fstrictures.pm;h=79ffcc011465b815308f40b07c3aac5a0e71063b;hb=da50db3f44b8220b3184875b17104e565b42cd3d;hp=91b40186af913b4b2a9350708bfc50a3e1d149c8;hpb=7a29a3e2424f3179e1aa6b26812d598c46bd07a8;p=p5sagit%2Fstrictures.git diff --git a/lib/strictures.pm b/lib/strictures.pm index 91b4018..79ffcc0 100644 --- a/lib/strictures.pm +++ b/lib/strictures.pm @@ -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}