From dbcea870630e6e6cedc6937d33da4e2e4c6d5390 Mon Sep 17 00:00:00 2001
From: Ben Lindstrom <mouring@eviladmin.org>
Date: Wed, 8 Nov 2000 01:07:51 +0000
Subject: [PATCH]  - (bal) fixpaths fixed to stop it from quitely failing.
 Patch by    Mark D. Roth <roth@feep.net>

---
 ChangeLog |  5 ++++-
 fixpaths  | 15 +++++++--------
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 89da6a5cc..3ab6086da 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,10 @@
 20001107
- - (bal) acconfig.in - removed the double "USE_PIPES" entry.
+ - (bal) acconfig.in - removed the double "USE_PIPES" entry. Patch by
+   Mark Miller <markm@swoon.net>
  - (bal) sshd.init files corrected to assign $? to RETVAL.  Patch by
    Jarno Huuskonen <jhuuskon@messi.uku.fi>
+ - (bal) fixpaths fixed to stop it from quitely failing. Patch by
+   Mark D. Roth <roth@feep.net>
 
 20001106
  - (djm) Use Jim's new 1.0.3 askpass in Redhat RPMs
diff --git a/fixpaths b/fixpaths
index 4badd9886..edd9e486f 100755
--- a/fixpaths
+++ b/fixpaths
@@ -37,14 +37,13 @@ for $f (@ARGV) {
   $of = $2.".$ext"; 
 
   open(IN, "<$f")          || die ("$0: input file $f missing!\n");
-  if (open(OUT, ">$of")) {
-    while (<IN>) {
-      for $s (keys(%def)) {
-	s#$s#$def{$s}#;
-      } # for $s
-      print OUT;
-    } # while <IN>
-  } # if (outfile open)
+  open(OUT, ">$of")        || die ("$0: cannot create output file $of: $!\n");
+  while (<IN>) {
+    for $s (keys(%def)) {
+      s#$s#$def{$s}#;
+    } # for $s
+    print OUT;
+  } # while <IN>
 } # for $f
 
 exit 0;