[Slim-Checkins] r33711 - in /7.7/trunk/server/CPAN: PAR.pm PAR/Heavy.pm

Author: dsully
Date: Wed Nov 16 10:53:55 2011
New Revision: 33711

URL: http://svn.slimdevices.com/slim?rev=33711&view=rev
Log:
Fix undefined warnings.

Modified:
    7.7/trunk/server/CPAN/PAR.pm
    7.7/trunk/server/CPAN/PAR/Heavy.pm

Modified: 7.7/trunk/server/CPAN/PAR.pm
URL: http://svn.slimdevices.com/slim/7.7/trunk/server/CPAN/PAR.pm?rev=33711&r1=33710&r2=33711&view=diff
==============================================================================
--- 7.7/trunk/server/CPAN/PAR.pm (original)
+++ 7.7/trunk/server/CPAN/PAR.pm Wed Nov 16 10:53:55 2011
@@ -495,7 +495,7 @@
     my $inc = "$par_temp/inc";
     my $dlext = do {
         require Config;
-        (defined %Config::Config) ? $Config::Config{dlext} : '';
+        %Config::Config ? $Config::Config{dlext} : '';
     };
 
     if (!-d $inc) {

Modified: 7.7/trunk/server/CPAN/PAR/Heavy.pm
URL: http://svn.slimdevices.com/slim/7.7/trunk/server/CPAN/PAR/Heavy.pm?rev=33711&r1=33710&r2=33711&view=diff
==============================================================================
--- 7.7/trunk/server/CPAN/PAR/Heavy.pm (original)
+++ 7.7/trunk/server/CPAN/PAR/Heavy.pm Wed Nov 16 10:53:55 2011
@@ -70,7 +70,7 @@
     # XXX: Multi-platform .dll support in PARs needs better than $Config.
     $dlext ||= do {
         require Config;
-        (defined %Config::Config) ? $Config::Config{dlext} : '';
+        %Config::Config ? $Config::Config{dlext} : '';
     };
 
     my $modpname = join((($^O eq 'MacOS') ? ':' : '/'), @modparts);