[LON-CAPA-cvs] cvs: loncom /imspackages imsprocessor.pm

[raeburn]

raeburn		Tue Dec 18 18:54:12 2012 EDT

  Modified files:              
    /loncom/imspackages	imsprocessor.pm 
  Log:
  - For perl 5.16 use of deprecated defined(%hash) generates warnings.
    - eliminate use.
  
  
Index: loncom/imspackages/imsprocessor.pm
diff -u loncom/imspackages/imsprocessor.pm:1.50 loncom/imspackages/imsprocessor.pm:1.51
--- loncom/imspackages/imsprocessor.pm:1.50	Thu Nov  3 17:54:53 2011
+++ loncom/imspackages/imsprocessor.pm	Tue Dec 18 18:54:11 2012
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Processor for IMS Packages
 #
-# $Id: imsprocessor.pm,v 1.50 2011/11/03 17:54:53 raeburn Exp $
+# $Id: imsprocessor.pm,v 1.51 2012/12/18 18:54:11 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -235,7 +235,7 @@
                                     $$items{$itm}{resnum} = $1;
                                 }
                             }
-                            unless (defined(%{$$resources{$$items{$itm}{resnum}}}) ) {
+                            unless (%{$$resources{$$items{$itm}{resnum}}}) {
                                 %{$$resources{$$items{$itm}{resnum}}} = ();
                             }
                             $$resources{$$items{$itm}{resnum}}{revitm} = $itm;