view release on metacpan or  search on metacpan

bin/ei  view on Meta::CPAN

        next if /^\s*(?:#.*)?$/;  # Skip blank lines and comments
        chomp;
        if (s/^!\s*//) {
            system($ENV{'SHELL'} || 'sh', '-c', $_);
            next;
        }
        elsif (/^{(.+)}$/) {
            eval $1;
            next;
        }
        local @ARGV = shellwords($_);
        my $cmd = shift @ARGV;
        $cmd =~ tr/-/_/;
        if ($shell{'aliases'}{$cmd}) {
            $cmd = $shell{'aliases'}{$cmd};
            if (ref $cmd) {
                ($cmd, @ARGV) = (@$cmd, @ARGV);
            }
        }
        my $sub = __PACKAGE__->can("shellcmd_$cmd")
               || __PACKAGE__->can("cmd_$cmd");

bin/ei.bak  view on Meta::CPAN

        next if /^\s*(?:#.*)?$/;  # Skip blank lines and comments
        chomp;
        if (s/^!\s*//) {
            system($ENV{'SHELL'} || 'sh', '-c', $_);
            next;
        }
        elsif (/^{(.+)}$/) {
            eval $1;
            next;
        }
        local @ARGV = shellwords($_);
        my $cmd = shift @ARGV;
        $cmd =~ tr/-/_/;
        if ($shell{'aliases'}{$cmd}) {
            $cmd = $shell{'aliases'}{$cmd};
            if (ref $cmd) {
                ($cmd, @ARGV) = (@$cmd, @ARGV);
            }
        }
        my $sub = __PACKAGE__->can("shellcmd_$cmd")
               || __PACKAGE__->can("cmd_$cmd");