File: man-instead-of-pod

package info (click to toggle)
swaks 20240103.0-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 992 kB
  • sloc: perl: 3,249; makefile: 46; sh: 24
file content (33 lines) | stat: -rw-r--r-- 1,012 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Description: Run 'man' instead of 'perldoc' if help is requested
 Debian systems are guaranteed to have man installed, and we package
 the Swaks manpage. This reduces manpage render time and package
 dependency count.
Author: Gunnar Wolf <gwolf@debian.org>
Bug-Debian: http://bugs.debian.org/381411
Origin: vendor
Forwarded: not-needed
Last-Update: <2024-01-05>

Index: swaks/swaks
===================================================================
--- swaks.orig/swaks
+++ swaks/swaks
@@ -10,7 +10,7 @@
 #       Twitter: http://www.twitter.com/SwaksSMTP
 
 use strict;
-use Pod::Usage;
+# use Pod::Usage;
 use File::Spec::Functions qw(splitdir);
 
 binmode(STDOUT);
@@ -43,7 +43,8 @@ my %O = %{ load_args() };
 
 # before we do anything else, check for --help and --version
 if (get_arg('help', \%O)) {
-	pod2usage(-verbose => 2, -exit => 0);
+    # pod2usage(-verbose => 2, -exit => 0);
+    exec("man", "swaks") || exit(1);
 }
 if (get_arg('version', \%O)) {
 	print "$p_name version $p_version\n\n$p_cp\n";