Changeset 03e25c5 for perl


Ignore:
Timestamp:
Sep 7, 2009, 8:53:27 PM (12 years ago)
Author:
Anders Kaseorg <andersk@mit.edu>
Branches:
master, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/Hooks.pm

    r6e48560 r03e25c5  
    211211                carp "DEPRECATED: ${package}::${symbol}: Tokenizing argument on ' '.\n"
    212212                . "In future versions, the argument list will be passed to\n"
    213                 . "'$command' directly. Tokenize yourself, or use BarnOwl::command()\n"
     213                . "'$command' directly. Tokenize yourself, or use BarnOwl::command()\n";
     214                BarnOwl::command("$command $_[0]");
     215            } else {
     216                BarnOwl::command($command, @_);
    214217            }
    215             BarnOwl::command($command . " " . join(" ", @_))
    216218          };
    217219        if(defined(*{"${package}::EXPORT_OK"}{ARRAY})
Note: See TracChangeset for help on using the changeset viewer.