--- 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)"),