File: help2man

package info (click to toggle)
gettext 0.21-4
  • links: PTS
  • area: main
  • in suites: bullseye
  • size: 133,492 kB
  • sloc: ansic: 516,617; sh: 53,532; perl: 17,889; makefile: 9,060; lisp: 3,210; yacc: 1,032; cpp: 704; java: 615; cs: 554; objc: 337; awk: 79; tcl: 63; sed: 55; xml: 40; pascal: 11; php: 7
file content (15 lines) | stat: -rwxr-xr-x 494 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';

# Die if the exec below somehow re-invoked this script.
die "help2man-wrapper: error: recursively invoked\n" .
    "help2man-wrapper: note: this script should not be in \$PATH\n"
    if defined $ENV{SYSTEM_HELP2MAN_WRAPPER};
$ENV{SYSTEM_HELP2MAN_WRAPPER} = 't';

# This form of exec ensures that under no circumstances will Perl
# invoke a shell.
exec { 'help2man' } 'help2man', @ARGV
    or die "couldn't exec system help2man: $!\n";