Index: /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm
===================================================================
--- /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 13259)
+++ /trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 13260)
@@ -1,5 +1,5 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.40 2007-05-04 23:36:04 price Exp $
+# $Id: Config.pm,v 1.41 2007-05-05 00:54:10 jhoblitt Exp $
 
 package PS::IPP::Config;
@@ -61,6 +61,8 @@
     my $name;			# Name of ipprc file
     GetOptions( 'site=s' => \$name );
-    $name = $ENV{PS_SITE} unless defined $name;
-    $name = $ENV{HOME} . '/.ipprc' unless defined $name;
+    $name = $ENV{PS_SITE} if not defined $name;
+    no warnings qw( uninitialized );
+    $name = $ENV{HOME} . '/.ipprc' if not defined $name;
+    use warnings;
 
     my $file;			# File handle