Changeset 13260

Timestamp:

May 4, 2007, 2:54:10 PM (19 years ago)

Author:

jhoblitt

Message:

turn off uninitialized warnings when looking up ENV{HOME}

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.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 +61 @@
     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