--- help2man/help2man.PL

+++ help2man/help2man.PL

@@ -751,11 +751,12 @@ exit;

 sub get_option_value

 {

     my ($prog, $opt) = @_;

+    (my $progname = $prog) =~ s!.*/!!;

     my $stderr = $discard_stderr ? '/dev/null' : '&1';

     my $value = join '',

 	map { s/ +$//; expand $_ }

 	map { dec $_ }

-	`$prog $opt 2>$stderr`;

+	`runas $progname $prog $opt 2>$stderr`;

     unless ($value)

     {