[elpa] externals/idlwave 476da8e5a8 086/360: - Skip directories which can't be written to, don't die.

[ELPA Syncer]

branch: externals/idlwave
commit 476da8e5a852fbf618c9ffce96a0e872c8802929
Author: jdsmith <jdsmith>
Commit: jdsmith <jdsmith>

    - Skip directories which can't be written to, don't die.
---
 idlwave_catalog | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/idlwave_catalog b/idlwave_catalog
index 09a09cd849..7d0c55f1c0 100755
--- a/idlwave_catalog
+++ b/idlwave_catalog
@@ -31,7 +31,7 @@
 # (without spaces).  E.g. "NasaLib".  A file named .idlwave_catalog
 # will be created in each directory with ".pro" routine files.
 #
-# $Id: idlwave_catalog,v 1.1 2003/04/15 19:22:59 jdsmith Exp $
+# $Id: idlwave_catalog,v 1.2 2003/07/18 18:59:41 jdsmith Exp $
 
 use Getopt::Std;
 $opt_l=$opt_s=$opt_f=$opt_v=$opt_d=$opt_h=0;
@@ -108,8 +108,10 @@ foreach $dir (keys %dirs) {
     }
   }
 
-  open CATALOG, ">$dir/$cat" or
-    die "Can't open catalog file $dir/$cat for writing";
+  unless (open CATALOG, ">$dir/$cat") {
+    warn "Can't open catalog file $dir/$cat for writing... skipping\n";
+    next;
+  }
   $time=localtime();
   print CATALOG <<EOF;
 ;;