diff --git a/bin/cat b/bin/cat
index 5b7d5cc9..c89c08ac 100755
--- a/bin/cat
+++ b/bin/cat
@@ -93,6 +93,10 @@ sub do_file {
 
         print;
     }
+    if ($name ne '-' && !close($fh)) {
+        warn "$Program: failed to close '$name': $!\n";
+        return 1;
+    }
     return 0;
 }