From 748a93069b3d16374a9859d1456065dd3ae11394 Mon Sep 17 00:00:00 2001
From: Larry Wall <lwall@netlabs.com>
Date: Sun, 12 Mar 1995 22:32:14 -0800
Subject: Perl 5.001

[See the Changes file for a list of changes]
---
 ext/Fcntl/Fcntl.pm | 4 ----
 1 file changed, 4 deletions(-)

(limited to 'ext/Fcntl/Fcntl.pm')

diff --git a/ext/Fcntl/Fcntl.pm b/ext/Fcntl/Fcntl.pm
index b18d1365e5..d3f73c4cd7 100644
--- a/ext/Fcntl/Fcntl.pm
+++ b/ext/Fcntl/Fcntl.pm
@@ -20,10 +20,6 @@ require DynaLoader;
 );
 
 sub AUTOLOAD {
-    if (@_ > 1) {
-	$AutoLoader::AUTOLOAD = $AUTOLOAD;
-	goto &AutoLoader::AUTOLOAD;
-    }
     local($constname);
     ($constname = $AUTOLOAD) =~ s/.*:://;
     $val = constant($constname, @_ ? $_[0] : 0);
-- 
cgit v1.2.1