Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.28
diff -u -r1.28 check
--- check	1999/08/31 22:49:16	1.28
+++ check	1999/09/01 11:22:04
@@ -427,7 +427,7 @@
     s/
+$//;
     print CHECKER $_, "\n";
 }
-close( CHECKER ) || "couldn't close checker";
+close CHECKER or warn "couldn't close checker";
 
 open( ERRORS, "< $temp" )	|| die "couldn't open checker results: $!";
 @errors = <ERRORS>;
@@ -783,7 +783,7 @@
     for (@file) {
 	print WEBLINT $_, "\n";
     }
-    close( WEBLINT ) || "couldn't close weblint: $!";
+    close WEBLINT or warn "couldn't close weblint: $!";
 
     print "\n\n";
     if ( $? ) {