--- loncom/lonnet/perl/lonnet.pm	2005/11/15 18:30:41	1.676
+++ loncom/lonnet/perl/lonnet.pm	2005/11/15 18:39:16	1.677
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.676 2005/11/15 18:30:41 albertel Exp $
+# $Id: lonnet.pm,v 1.677 2005/11/15 18:39:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5970,13 +5970,6 @@ sub thaw_unescape {
     return &unescape($value);
 }
 
-sub mod_perl_version {
-    return 1;
-    if (defined($perlvar{'MODPERL2'})) {
-	return 2;
-    }
-}
-
 sub correct_line_ends {
     my ($result)=@_;
     $$result =~s/\r\n/\n/mg;