patches: Fail cleanly when expire cannot open the patches directories.

[Francois Gouget]

---
 patches/expire |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/patches/expire b/patches/expire
index 90a7841..f143ab1 100755
--- a/patches/expire
+++ b/patches/expire
@@ -101,7 +101,7 @@ sub get_patch_state($)
 
 # expire current patches
 
-opendir DIR, $dir;
+opendir DIR, $dir or die "cannot open '$dir': $!\n";
 foreach my $file (sort readdir DIR)
 {
     next unless $file =~ /^[0-9]+$/;
@@ -141,7 +141,7 @@ closedir DIR;
 
 # expire old patches whose status has changed
 
-opendir DIR, "$dir/OLD";
+opendir DIR, "$dir/OLD" or die "cannot open '$dir/OLD': $!\n";
 foreach my $file (sort readdir DIR)
 {
     next unless $file =~ /^[0-9]+$/;
-- 
1.7.10.4