diff options
author | woglinde <heinold@inf.fu-berlin.de> | 2009-02-22 01:55:06 +0100 |
---|---|---|
committer | woglinde <heinold@inf.fu-berlin.de> | 2009-02-26 20:26:01 +0100 |
commit | cf7e4c7dbd34264dd0bdf9352efe279d6b96893b (patch) | |
tree | 0559068f62d6e5f7b1fd795d72f926f62bace1ab /packages/update-alternatives/update-alternatives-dpkg-1.13.25/paths.patch | |
parent | 064adeb426cd71d3dfc7d05c461a6e5db7739795 (diff) |
update-alternatives: update to newer version of dpkg
Diffstat (limited to 'packages/update-alternatives/update-alternatives-dpkg-1.13.25/paths.patch')
-rw-r--r-- | packages/update-alternatives/update-alternatives-dpkg-1.13.25/paths.patch | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/packages/update-alternatives/update-alternatives-dpkg-1.13.25/paths.patch b/packages/update-alternatives/update-alternatives-dpkg-1.13.25/paths.patch new file mode 100644 index 0000000000..a23bf9a99d --- /dev/null +++ b/packages/update-alternatives/update-alternatives-dpkg-1.13.25/paths.patch @@ -0,0 +1,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)$/) { + |