18 lines
465 B
Perl
18 lines
465 B
Perl
# NOTE: Derived from ../LIB\Getopt\Long.pm.
|
|
# Changes made here will be lost when autosplit again.
|
|
# See AutoSplit.pm.
|
|
package Getopt::Long;
|
|
|
|
#line 827 "../LIB\Getopt\Long.pm (autosplit into ..\lib\auto/Getopt\Long/Croak.al)"
|
|
# To prevent Carp from being loaded unnecessarily.
|
|
sub Croak (@) {
|
|
require 'Carp.pm';
|
|
$Carp::CarpLevel = 1;
|
|
Carp::croak(@_);
|
|
};
|
|
|
|
################ Documentation ################
|
|
|
|
1;
|
|
# end of Getopt::Long::Croak
|