Changeset 13328

Show
Ignore:
Timestamp:
06/06/08 14:35:27 (5 years ago)
Author:
tokuhirom
Message:

LOAD should use original command.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Test-PerlbalConf/trunk/lib/Test/PerlbalConf.pm

    r13327 r13328  
    3737my $command_parser = { 
    3838    load => sub { 
    39         my $cmd = shift; 
    40         my ($fn,) = _parse($cmd, qr/^load (\w+)$/); 
     39        my ($cmd, $orig) = @_; 
     40        my ($fn,) = _parse($orig, qr/^load (\w+)$/i); 
    4141        my $load = sub { 
    4242            my $name = shift; 
    … …  
    170170 
    171171    if ($command_parser->{$basecmd}) { 
    172         $command_parser->{$basecmd}->($cmd); 
     172        $command_parser->{$basecmd}->($cmd, $orig); 
    173173    } else { 
    174174        _diag "unknown command $basecmd";