--- help2man-1.35.1/help2man.PL.orig	2004-11-25 13:19:54 +0300
+++ help2man-1.35.1/help2man.PL	2005-03-02 23:10:37 +0300
@@ -293,18 +293,18 @@
     for (keys %$hash) { $hash->{$_} =~ s/\n+$/\n/ }
 }
 
+my $date = strftime "%B %Y", localtime;
+(my $program = $ARGV[0]) =~ s!.*/!!;
+my $package = $program;
+my $version;
+
 # Grab help and version info from executable.
 my ($help_text, $version_text) = map {
-    join '', map { s/ +$//; expand $_ } `$ARGV[0] $_ 2>/dev/null`
+    join '', map { s/ +$//; expand $_ } `runas $program $ARGV[0] $_ 2>/dev/null`
 	or kark N_("%s: can't get `%s' info from %s"), $this_program,
 	    $_, $ARGV[0]
 } $help_option, $version_option;
 
-my $date = strftime "%B %Y", localtime;
-(my $program = $ARGV[0]) =~ s!.*/!!;
-my $package = $program;
-my $version;
-
 if ($opt_output)
 {
     unlink $opt_output or kark N_("%s: can't unlink %s (%s)"),