File: 10-fix-upstream-code.patch

package info (click to toggle)
cadubi 1.3.4-9
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 272 kB
  • sloc: perl: 761; makefile: 2
file content (26 lines) | stat: -rw-r--r-- 862 bytes parent folder | download | duplicates (6) 
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
 
Description: fixed new code upstream using part of old Juan Diaz's patch.
Author: Paulo Henrique de Lima Santana (phls) <phls@softwarelivre.org>
Last­Update: 2016-12-26
Index: cadubi-1.3.3/cadubi
===================================================================
--- cadubi-1.3.3.orig/cadubi
+++ cadubi-1.3.3/cadubi
@@ -11,14 +11,15 @@ $VERSION = '1.3.3';
 # kludge to make this easier (?) for package maintainers
 # (sorry guys, i wrote this years before i had the remotest clue as to
 #  what the hell i was doing)
-use FindBin qw($Bin);
-$HELPFILE = "$Bin/help.txt";
+use FindBin qw($Script);
+$DOCSDIR = "/usr/share/$Script";
+$HELPFILE = "$DOCSDIR/help.txt";
 
 # other stuff
 $DEBUG = 0;
 $CADUBI_VERSION = $VERSION;
 use Term::ReadKey;
-use lib "$Bin/../lib";
+use lib "$Bin/lib";
 
 # global variables
 $ESC = "\x1b";          # our most important var