summaryrefslogtreecommitdiff
path: root/packages/update-alternatives/update-alternatives-dpkg-1.13.22/paths.patch
blob: a23bf9a99dc73d165f43927ed94daf027bfea8b2 (plain)
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
diff -ruN dpkg-1.13.22.orig/scripts/update-alternatives.pl dpkg-1.13.22/scripts/update-alternatives.pl
--- dpkg-1.13.22.orig/scripts/update-alternatives.pl   2006-06-21 01:46:12.000000000 -0300
+++ dpkg-1.13.22/scripts/update-alternatives.pl    2007-08-02 19:36:47.000000000 -0300
@@ -1,7 +1,7 @@
 #!/usr/bin/perl --
 
 $admindir= "/var/lib/dpkg"; # This line modified by Makefile
-$dpkglibdir= "../utils"; # This line modified by Makefile
+$dpkglibdir= "/usr/lib/dpkg"; # This line modified by Makefile
 $version= '0.93.80'; # This line modified by Makefile
 push (@INC, $dpkglibdir);
 require 'dpkg-gettext.pl';
@@ -129,6 +129,12 @@
         &checkmanymodes;
         @ARGV >= 4 || &badusage(_g("--install needs <link> <name> <path> <priority>"));
         ($alink,$name,$apath,$apriority,@ARGV) = @ARGV;
+  if (! -e $apath) { 
+      $apath = substr($alink,0,rindex($alink,"/")+1).$apath;
+  }
+  if (! -e $apath) { 
+      &quit(sprintf(_g("Error: file not found: %s"), $apath));
+  }
         $apriority =~ m/^[-+]?\d+/ || &badusage(_g("priority must be an integer"));
         $mode= 'install';
     } elsif (m/^--(remove|set)$/) {