@rem = '--*-Perl-*-- @echo off if "%OS%" == "Windows_NT" goto WinNT perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9 goto endofperl :WinNT perl -x -S %0 %* if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl if %errorlevel% == 9009 echo You do not have Perl in your PATH. if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul goto endofperl @rem '; #!/usr/bin/perl #line 15 # $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