File: hardcode-path

package info (click to toggle)
libgnupg-interface-perl 1.02-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 740 kB
  • sloc: perl: 3,813; makefile: 6; sh: 5
file content (30 lines) | stat: -rw-r--r-- 915 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
Description: Hardcode path to /usr/bin/gpg
Bug-Debian: https://bugs.debian.org/981647
Forwarded: Not-Needed
Author: Dominic Hargreaves
Reviewed-by: gregor herrmann <gregoa@debian.org>
Last-Update: 2021-08-18

--- a/lib/GnuPG/Interface.pm
+++ b/lib/GnuPG/Interface.pm
@@ -76,7 +76,7 @@ sub gnupg_call { shift->call(@_); }
 
 sub BUILD {
     my ( $self, $args ) = @_;
-    $self->hash_init( call => 'gpg', %$args );
+    $self->hash_init( call => '/usr/bin/gpg', %$args );
 }
 
 struct(
@@ -1197,9 +1197,8 @@ keys to list in a key-listing.
 
 =item call
 
-This defines the call made to invoke GnuPG.  Defaults to 'gpg'; this
-should be changed if 'gpg' is not in your path, or there is a different
-name for the binary on your system.
+This defines the call made to invoke GnuPG.  Defaults to '/usr/bin/gpg'; this
+should be changed if there is a different name for the binary on your system.
 
 =item passphrase