* vidir: Check exit codes of close. Closes: #463739

diff --git a/debian/changelog b/debian/changelog
index 9c0437e80218827d4f7eedb32eab10dac190d738..bbf4131a3bbb8eac131826c262753ade4ad1052d 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+moreutils (0.27) UNRELEASED; urgency=low
+
+  * vidir: Check exit codes of close. Closes: #463739
+
+ -- Joey Hess <joeyh@debian.org>  Sat, 02 Feb 2008 16:41:52 -0500
+
 moreutils (0.26) unstable; urgency=low
 
   * isutf8: Correct inverted exit code when passed a file to check.

diff --git a/vidir b/vidir
index ebc946d8cec2d8b3d7d7f17fc91fe5ab20a19794..3798da7d247d0581e609d667900858658b4fc864 100755 (executable)
--- a/vidir
+++ b/vidir
@@ -92,7 +92,7 @@ foreach my $item (@ARGV) {
 }
        
 my $tmp=File::Temp->new(TEMPLATE => "dirXXXXX", DIR => File::Spec->tmpdir);
-open (OUT, ">".$tmp->filename) || die "$0: cannot write ".$tmp->filename.": $!\n";
+open (OUT, ">".$tmp->filename) || die "$0: cannot create ".$tmp->filename.": $!\n";
 
 my %item;
 my $c=0;
@@ -102,7 +102,7 @@ foreach (@dir) {
        print OUT "$c\t$_\n";
 }
 @dir=();
-close OUT;
+close OUT || die "$0: cannot write ".$tmp->filename.": $!\n";
 
 my @editor="vi";
 if (-x "/usr/bin/editor") {
@@ -171,7 +171,7 @@ while (<IN>) {
                die "$0: unable to parse line \"$_\", aborting\n";
        }
 }
-close IN;
+close IN || die "$0: cannot read ".$tmp->filename.": $!\n";
 unlink($tmp.'~') if -e $tmp.'~';
 
 foreach my $item (sort values %item) {