Changeset 03e25c5 for perl/lib/BarnOwl

Timestamp:

Sep 7, 2009, 8:53:27 PM (15 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

master, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

636de2a

Parents:

e440602

git-author:

Anders Kaseorg <andersk@mit.edu> (09/03/09 22:07:36)

git-committer:

Anders Kaseorg <andersk@mit.edu> (09/07/09 20:53:27)

Message:

_new_command: Only tokenize on spaces when passed a single argument.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>

File:

• perl/lib/BarnOwl/Hooks.pm (modified) (1 diff)

perl/lib/BarnOwl/Hooks.pm

@@ -211 +211 @@
                 carp "DEPRECATED: ${package}::${symbol}: Tokenizing argument on ' '.\n"
                 . "In future versions, the argument list will be passed to\n"
-                . "'$command' directly. Tokenize yourself, or use BarnOwl::command()\n"
+                . "'$command' directly. Tokenize yourself, or use BarnOwl::command()\n";
+                BarnOwl::command("$command $_[0]");
+            } else {
+                BarnOwl::command($command, @_);
             }
-            BarnOwl::command($command . " " . join(" ", @_))
           };
         if(defined(*{"${package}::EXPORT_OK"}{ARRAY})