lib/perl5/5.6.1/auto/Getopt/Long/Croak.al

   1 # NOTE: Derived from lib/Getopt/Long.pm.
   2 # Changes made here will be lost when autosplit again.
   3 # See AutoSplit.pm.
   4 package Getopt::Long;
   5
   6 #line 1020 "lib/Getopt/Long.pm (autosplit into lib/auto/Getopt/Long/Croak.al)"
   7 # To prevent Carp from being loaded unnecessarily.
   8 sub Croak (@) {
   9     require 'Carp.pm';
  10     $Carp::CarpLevel = 1;
  11     Carp::croak(@_);
  12 };
  13
  14 ################ Documentation ################
  15
  16
  17 # Local Variables:
  18 # eval: (load-file "pod.el")
  19 # End:
  20 1;
  21 # end of Getopt::Long::Croak