--- loncom/interface/lonpdfupload.pm	2014/02/28 19:20:06	1.23
+++ loncom/interface/lonpdfupload.pm	2014/12/12 14:21:22	1.24
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # PDF Form Upload Handler
 #
-# $Id: lonpdfupload.pm,v 1.23 2014/02/28 19:20:06 bisitz Exp $
+# $Id: lonpdfupload.pm,v 1.24 2014/12/12 14:21:22 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -380,7 +380,7 @@ sub parse_grade_answer {
                        'DRAFT' => &mt('Copy saved but not submitted.'),
      );
 
-    foreach my $key (keys %answerhash) {
+    foreach my $key (keys(%answerhash)) {
         if($shortcut eq $key) {
             return $answerhash{$shortcut};
         }  
@@ -394,12 +394,12 @@ sub dumpenv  {
     my $r = shift;
 
     $r->print ("<br />-------------------<br />");
-    foreach my $key (sort (keys %env)) {
+    foreach my $key (sort(keys(%env))) {
         $r->print ("<br />$key -> $env{$key}");
     }
     $r->print ("<br />-------------------<br />");
     $r->print ("<br />-------------------<br />");
-    foreach my $key (sort (keys %ENV)) {
+    foreach my $key (sort(keys(%ENV))) {
         $r->print ("<br />$key -> $ENV{$key}");
     }
     $r->print ("<br />-------------------<br />");