Warning from calls using "use Shell"

(this is the same change as commit a5bda13b0ef005fbbd13265a362caff51359bbc6, but as applied)

diff --git a/lib/Shell.pm b/lib/Shell.pm
index bb44b53..f4ef431 100644 (file)
--- a/lib/Shell.pm
+++ b/lib/Shell.pm
@@ -21,7 +21,7 @@ AUTOLOAD {
     my $cmd = $AUTOLOAD;
     $cmd =~ s/^.*:://;
     eval qq {
-       sub $AUTOLOAD {
+       *$AUTOLOAD = sub {
            if (\@_ < 1) {
                `$cmd`;
            }