Changeset 13262

Timestamp:

May 4, 2007, 3:06:52 PM (19 years ago)

Author:

eugene

Message:

need to check for ENV HOME before using it

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.41 2007-05-05 00:54:10 jhoblitt Exp $
+# $Id: Config.pm,v 1.42 2007-05-05 01:06:52 eugene Exp $
 
 package PS::IPP::Config;
@@ -11 +11 @@
 
 use Carp qw( carp );
-use File::Spec 3.19;
+# use File::Spec 3.19;
+use File::Spec 0.87;
 use PS::IPP::Metadata::Config 1.00;
 use Getopt::Long 2.35 qw( GetOptions :config gnu_getopt pass_through ); # Set pass_through so we don't kill @ARGV
@@ -62 +63 @@
     GetOptions( 'site=s' => \$name );
     $name = $ENV{PS_SITE} if not defined $name;
-    no warnings qw( uninitialized );
-    $name = $ENV{HOME} . '/.ipprc' if not defined $name;
-    use warnings;
+    if (not defined $name and defined $ENV{HOME}) {
+        $name = $ENV{HOME} . '/.ipprc';
+    }
 
     my $file;                   # File handle