Don't hardcode ENOENT in perlscripts

Add mips to archtable

diff --git a/ChangeLog b/ChangeLog
index 8c4d919d560c0faf41f4d053536984a01c1905cc..8fd51ab20853d65a2b617724fef233528eb84d45 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+Thu Oct 14 03:37:52 CEST 1999 Wichert Akkerman <wakkerma@debian.org>
+
+  * Add mips to archtable
+  * Use Errno module to get ENOENT instead of hardcoding it
+
+Thu Oct 14 02:47:40 CEST 1999 Wichert Akkerman <wakkerma@debian.org>
+
+  * Fix C error we introduced in checkpath() earlier
+
 Wed Oct 13 20:41:16 CEST 1999 Wichert Akkerman <wakkerma@debian.org>
 
   * Update oldfile-check in process_archive so we don't experience

diff --git a/archtable b/archtable
index eee78fa7a71acbd4f7df5a31b220503b54d6c701..40795822c72f2d6e3e6eb9a5acb606828b1a924a 100644 (file)
--- a/archtable
+++ b/archtable
@@ -30,3 +30,4 @@ m68k  m68k    m68k
 arm    arm     arm
 ppc    powerpc powerpc
 powerpc        powerpc powerpc
+mips   mips    mips

diff --git a/main/help.c b/main/help.c
index 98620a2a5e219405ae8a5d4c03f9e3f87f88e6d7..762d77b474eba4eb8db59e2102ff12b423e3e08f 100644 (file)
--- a/main/help.c
+++ b/main/help.c
@@ -87,7 +87,6 @@ void checkpath(void) {
     while (s) {
       p= strchr(s,':');
       l= p ? p-s : strlen(s);
-      if (l+strlen(*clp)+2>sizeof(buf)) continue;
       memcpy(buf,s,l);
       if (l) buf[l++]= '/';
       strcpy(buf+l,*clp);

diff --git a/scripts/dpkg-divert.pl b/scripts/dpkg-divert.pl
index a6bb5fcd6cbdbff10f8d3b7ee734f188f4239e57..7dd53b3b7758a6d0b497e2372f71759825b3afd5 100755 (executable)
--- a/scripts/dpkg-divert.pl
+++ b/scripts/dpkg-divert.pl
@@ -1,8 +1,6 @@
 #!/usr/bin/perl --
 
-#use POSIX; &ENOENT;
-sub ENOENT { 2; }
-# Sorry about this, but POSIX.pm isn't necessarily available
+use Errno;
 
 $version= '1.0.11'; # This line modified by Makefile
 sub usageversion {

diff --git a/scripts/update-alternatives.pl b/scripts/update-alternatives.pl
index c0a047c0b058d89e74947871ad2c91fb8a501280..e312f5be8738884056a7008ea09614e357994391 100755 (executable)
--- a/scripts/update-alternatives.pl
+++ b/scripts/update-alternatives.pl
@@ -1,8 +1,6 @@
 #!/usr/bin/perl --
 
-#use POSIX; &ENOENT;
-sub ENOENT { 2; }
-# Sorry about this, but POSIX.pm isn't necessarily available
+use Errno;
 
 $version= '0.93.80'; # This line modified by Makefile
 sub usageversion {