#!/usr/bin/perl eval 'exec /usr/bin/perl -S $0 ${1+"$@"}' if 0; # not running under some shell # $File: //depot/cpanplus/dist/bin/cpanp $ # $Revision: #8 $ $Change: 8345 $ $DateTime: 2003/10/05 19:25:48 $ use strict; use vars '$VERSION'; use CPANPLUS; $VERSION = CPANPLUS->VERSION; use CPANPLUS::Shell qw[Default]; my $shell = CPANPLUS::Shell->new; ### if we're given a command, run it; otherwise, open a shell. if (@ARGV) { ### take the command line arguments as a command my $input = "@ARGV"; ### if they said "--help", fix it up to work. $input = 'h' if $input =~ /^\s*--?h(?:elp)?\s*$/i; ### strip the leading dash $input =~ s/^\s*-//; ### pass the command line to the shell ### exit with a useful return value on return exit not $shell->dispatch_on_input(input => $input, noninteractive => 1); } else { ### open a shell for the user $shell->shell(); } =head1 NAME cpanp - The CPANPLUS launcher =head1 SYNOPSIS B B S<[-]B> S<[ --[B-]I