瀏覽代碼

Remove bogus check of $!.

Adam Heath 25 年之前
父節點
當前提交
d5d0374728
共有 2 個文件被更改,包括 5 次插入1 次删除
  1. 4 0
      ChangeLog
  2. 1 1
      scripts/dpkg-architecture.pl

+ 4 - 0
ChangeLog

@@ -1,3 +1,7 @@
+Sat Jun  2 15:09:01 CDT 2001 Adam Heath <doogie@debian.org>
+
+  * scripts/dpkg-architecture.pl: Remove bogus check of $!.
+
 Sat Jun  2 15:04:09 CDT 2001 Adam Heath <doogie@debian.org>
 Sat Jun  2 15:04:09 CDT 2001 Adam Heath <doogie@debian.org>
 
 
   * scripts/dpkg-source.pl: Reset SIGPIPE back to a default handler, for
   * scripts/dpkg-source.pl: Reset SIGPIPE back to a default handler, for

+ 1 - 1
scripts/dpkg-architecture.pl

@@ -128,7 +128,7 @@ if ($?>>8) {
     $gcc = '';
     $gcc = '';
 } else {
 } else {
     $gcc =~ s!^.*gcc-lib/([^/]*)/(?:egcs-)?\d+(?:[.\da-z]*)/libgcc.*$!$1!s;
     $gcc =~ s!^.*gcc-lib/([^/]*)/(?:egcs-)?\d+(?:[.\da-z]*)/libgcc.*$!$1!s;
-    if (defined $1 and $! ne '') {
+    if (defined $1) {
 	$gcc = $1;
 	$gcc = $1;
     } else {
     } else {
 	&warn("Couldn't determine gcc system type, falling back to default (native compilation)");
 	&warn("Couldn't determine gcc system type, falling back to default (native compilation)");