X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSquirrel.pm;h=fc8ea0973caf6ef82beff228bbb33d12b7b4f1c4;hb=84e9b28560b15545a21b389885b0c9514fa93165;hp=de129064d8b49e34d5a6cf2087da1c1ca57afacb;hpb=d25ab495e5ccf7e106f608bed786fdacc7b46917;p=gitmo%2FMouse.git

diff --git a/lib/Squirrel.pm b/lib/Squirrel.pm
index de12906..fc8ea09 100644
--- a/lib/Squirrel.pm
+++ b/lib/Squirrel.pm
@@ -1,7 +1,5 @@
-#!/usr/bin/perl
-
+#!/usr/bin/env perl
 package Squirrel;
-
 use strict;
 use warnings;
 
@@ -27,7 +25,8 @@ sub _handlers {
 
     my $caller = caller(1);
 
-    $pkgs{$caller} ||= $class->_choose_backend;
+    $pkgs{$caller} = $class->_choose_backend
+        unless $pkgs{$caller};
 }
 
 sub import {