From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 15 Oct 2010 08:52:54 +0000 (+0100)
Subject: Remove erroneous references to AutoLoader from File::Glob.
X-Git-Tag: accepted/trunk/20130322.191538~7376
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1a22d347c03dcb480dd25ea0276587697f4eb2c7;p=platform%2Fupstream%2Fperl.git

Remove erroneous references to AutoLoader from File::Glob.
---

diff --git a/ext/File-Glob/Glob.pm b/ext/File-Glob/Glob.pm
index dcd9a47..41584bb 100644
--- a/ext/File-Glob/Glob.pm
+++ b/ext/File-Glob/Glob.pm
@@ -79,8 +79,7 @@ sub import {
 
 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/.*:://;
@@ -95,8 +94,6 @@ sub AUTOLOAD {
 
 XSLoader::load();
 
-# Preloaded methods go here.
-
 sub GLOB_ERROR {
     return (constant('GLOB_ERROR'))[1];
 }
@@ -114,8 +111,6 @@ if ($^O =~ /^(?:MSWin32|VMS|os2|dos|riscos)$/) {
     $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;