Changeset 11497

Timestamp:

Jan 31, 2007, 1:41:36 PM (19 years ago)

Author:

eugene

Message:

adding double-check on camera

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.24 2007-01-30 00:41:06 price Exp $
+# $Id: Config.pm,v 1.25 2007-01-31 23:41:36 eugene Exp $
 
 package PS::IPP::Config;
@@ -108 +108 @@
         }
     }
-    croak "Unable to find camera configuration file $filename\n"
-        if not defined $found;
+    if (not defined $found) {
+        ## try again after a moment?
+        system ("df");
+        select(undef, undef, undef, 0.25);
+
+        ## try a second time
+        my $found;
+        foreach my $path (@path) {
+            print "trying: filename: $filename, path: $path -> ";
+            my $test = File::Spec->rel2abs( $filename, $path );
+            print "test: $test\n";
+            if (-f $test) {
+                $found = $test;
+                last;
+            }
+        }
+        croak "Unable to find camera configuration file $filename\n" if not defined $found;
+    }
 
     # Read the file