1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
#!/usr/bin/perl use 5.00503; use strict; use pip; use vars qw{$VERSION}; BEGIN { $VERSION = '1.16'; } eval { pip::main( @ARGV ); }; if ( $@ ) { my $errstr = $@; $errstr =~ s/\sat line\b.+$//; print "Unexpected Error: $errstr\n"; exit(255); } exit(0);