sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()
- # XS function. If a constant is not found then control is passed
- # to the AUTOLOAD in AutoLoader.
+ # XS function.
my $constname;
($constname = $AUTOLOAD) =~ s/.*:://;
XSLoader::load();
-# Preloaded methods go here.
-
sub GLOB_ERROR {
return (constant('GLOB_ERROR'))[1];
}
$DEFAULT_FLAGS |= GLOB_NOCASE();
}
-# Autoload methods go after =cut, and are processed by the autosplit program.
-
sub bsd_glob {
my ($pat,$flags) = @_;
$flags = $DEFAULT_FLAGS if @_ < 2;