22 lines
533 B
Perl
22 lines
533 B
Perl
# NOTE: Derived from ../LIB\Getopt\Long.pm.
|
|
# Changes made here will be lost when autosplit is run again.
|
|
# See AutoSplit.pm.
|
|
package Getopt::Long;
|
|
|
|
#line 1019 "../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 ################
|
|
|
|
|
|
# Local Variables:
|
|
# eval: (load-file "pod.el")
|
|
# End:
|
|
1;
|
|
# end of Getopt::Long::Croak
|