--- ./lib/Getopt/Std.pm-try2	Mon Apr  7 16:33:58 2003
+++ ./lib/Getopt/Std.pm	Mon May 26 00:15:52 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 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('$< == $>') || 1)
+	&& (eval('$( == $)') || 1) );
+}
 
 # Process single-character switches with switch clustering.  Pass one argument
 # which is a string containing all switches that take an argument.  For each
