Changeset 18557

Timestamp:

Jul 15, 2008, 10:27:31 AM (18 years ago)

Author:

bills

Message:

If an attempt to redirect_output fails wait 5 seconds and try again.
Try 10 times before giving up. (It's always succeeded on the second or
third try). This is a workaround to the alleged 'nfs glitch'

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (2 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.90 2008-06-12 01:35:08 eugene Exp $
+# $Id: Config.pm,v 1.91 2008-07-15 20:27:31 bills Exp $
 
 package PS::IPP::Config;
@@ -583 +583 @@
     die "cannot resolve $name" unless $filename;
 
-    open STDOUT, ">>$filename" or die "failed to redirect stdout to $filename";
+    if (! open(STDOUT, ">>$filename") ) {
+        # try to work around the 'nfs glitch' by waiting and retrying the open a couple of times
+        print STDERR "failed to redirect stdout to $filename re-trying\n";
+        my $max_tries = 10;
+        my $try = 2;
+        while (! open STDOUT, ">>$filename" ) {
+            if ($try == $max_tries) {
+                die "failed to redirect stdout to $filename after trying $max_tries times";
+            }
+            sleep 5;
+            $try++;
+        }
+        print STDERR "   redirect stdout to $filename succeded on try $try\n";
+    }
     open STDERR, ">>$filename" or die "failed to redirect stderr to $filename";
 }