Changeset 11850

Timestamp:

Feb 16, 2007, 10:58:15 AM (19 years ago)

Author:

Paul Price

Message:

Fixing response when open() doesn't work.

File:

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

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

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.30 2007-02-15 22:35:38 price Exp $
+# $Id: Config.pm,v 1.31 2007-02-16 20:58:15 price Exp $
 
 package PS::IPP::Config;
@@ -61 +61 @@
 
     my $file;                   # File handle
-    open $file, $name;
-    unless ($file) {
+    unless (open $file, $name) {
         carp "Unable to open ipprc file $name: $!";
         exit($PS_EXIT_CONFIG_ERROR);
@@ -142 +141 @@
     # Read the file
     my $file;                   # File handle
-    open $file, $realfile;
-    unless ($file) {
+    unless (open $file, $realfile) {
         carp "Unable to open camera configuration file $realfile: $!";
         exit($PS_EXIT_CONFIG_ERROR);