[perl #16256] Bug in P6C::IMCC

[via RT]

# New Ticket Created by  Benjamin Goldberg 
# Please include the string:  [perl #16256]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=16256 >


In the file perl6/P6C/IMCC.pm, in the import sub, the else block:

    } else {
        foreach (@_) {
            *{$caller . '::' . $_} = \&$_;
        }
    }

I think that it should be:

    } else {
        shift;
        foreach (@_) {
            *{$caller . '::' . $_} = \&$_;
        }
    }

At least, it should be like this if you want to avoid putting a
subroutine named &IMCC in the caller's namespace, pointing to a
nonexistant &P6C::IMCC.

-- 
tr/`4/ /d, print "@{[map --$| ? ucfirst lc : lc, split]},\n" for
pack 'u', pack 'H*', 'ab5cf4021bafd28972030972b00a218eb9720000';