[system] / trunk / pg / macros / PG.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/PG.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 1280 Revision 1304
142 142
143 !); 143 !);
144# warn eval(q! "PG.pl: The envir variable $main::{envir} is".join(" ",%main::envir)!); 144# warn eval(q! "PG.pl: The envir variable $main::{envir} is".join(" ",%main::envir)!);
145 my $rh_envir = eval(q!\%main::envir!); 145 my $rh_envir = eval(q!\%main::envir!);
146 my %envir = %$rh_envir; 146 my %envir = %$rh_envir;
147 no strict; 147 #no strict;
148 foreach my $var (keys %envir) { 148 foreach my $var (keys %envir) {
149 eval(q!$main::!.$var.q! = $main::envir{!.$var.q!}! ); #whew!! makes sure $var is interpolated but $main:: is evaluated at run time. 149 eval(q!$main::!.$var.q! = $main::envir{!.$var.q!}! ); #whew!! makes sure $var is interpolated but $main:: is evaluated at run time.
150 # warn eval(q! "var $var is defined ". $main::!.$var); 150 # warn eval(q! "var $var is defined ". $main::!.$var);
151 warn "Problem defining ", q{\$main::}.$var, " while initializing the PG problem: $@" if $@; 151 warn "Problem defining ", q{\$main::}.$var, " while initializing the PG problem: $@" if $@;
152 } 152 }
153 use strict; 153 #use strict;
154 #FIXME these strict pragmas don't seem to be needed and they cause trouble in perl 5.6.0
154 155
155 156
156 157
157 eval(q! 158 eval(q!
158 @main::submittedAnswers = @{$main::refSubmittedAnswers} if defined($main::refSubmittedAnswers); 159 @main::submittedAnswers = @{$main::refSubmittedAnswers} if defined($main::refSubmittedAnswers);

Legend:
Removed from v.1280  
changed lines
  Added in v.1304

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9