--- loncom/lonnet/perl/lonnet.pm	2003/09/17 01:45:14	1.414
+++ loncom/lonnet/perl/lonnet.pm	2003/09/17 17:50:49	1.415
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.414 2003/09/17 01:45:14 www Exp $
+# $Id: lonnet.pm,v 1.415 2003/09/17 17:50:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4196,6 +4196,12 @@ sub unescape {
     return $str;
 }
 
+sub mod_perl_version {
+    if (defined($perlvar{'MODPERL2'})) {
+	return 2;
+    }
+    return 1;
+}
 # ================================================================ Main Program
 
 sub goodbye {