--- ./lib/Getopt/Std.pm-try2	Mon Apr  7 16:33:58 2003
+++ ./lib/Getopt/Std.pm	Mon May 26 00:29:08 2003
@@ -71,8 +71,19 @@ and version_mess() with the switches str
 @ISA = qw(Exporter);
 @EXPORT = qw(getopt getopts);
 $VERSION = '1.04';
+
 # uncomment the next line to disable 1.03-backward compatibility paranoia
 # $STANDARD_HELP_VERSION = 1;
+
+# Enable standard behaviour if:
+#   a) we are root (or this does not make sense)
+#   b) or we are not suid/sgid (or this does not make sense)
+unless (defined $STANDARD_HELP_VERSION) {
+  $STANDARD_HELP_VERSION
+    =  (eval('$< == 0') || 1)
+   || !(   eval('$< != $>') 
+	|| eval('$( != $)') );
+}
 
 # Process single-character switches with switch clustering.  Pass one argument
 # which is a string containing all switches that take an argument.  For each
