diff options
Diffstat (limited to 'docs/autodocifier.pl')
-rwxr-xr-x | docs/autodocifier.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/docs/autodocifier.pl b/docs/autodocifier.pl index 78950dc17..576e31281 100755 --- a/docs/autodocifier.pl +++ b/docs/autodocifier.pl | |||
@@ -1,4 +1,5 @@ | |||
1 | #!/usr/bin/perl -w | 1 | #!/usr/bin/perl -w |
2 | # vi: set sw=4 ts=4: | ||
2 | 3 | ||
3 | use strict; | 4 | use strict; |
4 | use Getopt::Long; | 5 | use Getopt::Long; |
@@ -49,11 +50,13 @@ sub pod_for_usage { | |||
49 | my $usage = shift; | 50 | my $usage = shift; |
50 | 51 | ||
51 | # Sigh. Fixup the known odd-name applets. | 52 | # Sigh. Fixup the known odd-name applets. |
53 | # Perhaps we can use some of APPLET_ODDNAME from include/applets.h ? | ||
52 | $name =~ s/dpkg_deb/dpkg-deb/g; | 54 | $name =~ s/dpkg_deb/dpkg-deb/g; |
53 | $name =~ s/fsck_minix/fsck.minix/g; | 55 | $name =~ s/fsck_minix/fsck.minix/g; |
54 | $name =~ s/mkfs_minix/mkfs.minix/g; | 56 | $name =~ s/mkfs_minix/mkfs.minix/g; |
55 | $name =~ s/run_parts/run-parts/g; | 57 | $name =~ s/run_parts/run-parts/g; |
56 | $name =~ s/start_stop_daemon/start-stop-daemon/g; | 58 | $name =~ s/start_stop_daemon/start-stop-daemon/g; |
59 | $name =~ s/ether_wake/ether-wake/g; | ||
57 | 60 | ||
58 | # make options bold | 61 | # make options bold |
59 | my $trivial = $usage->{trivial}; | 62 | my $trivial = $usage->{trivial}; |