Index: /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm
===================================================================
--- /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 13261)
+++ /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 13262)
@@ -1,5 +1,5 @@
 # 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,5 +11,6 @@
 
 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,7 +63,7 @@
     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