[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 2697 Revision 2698
140 140
141 !); 141 !);
142# warn eval(q! "PG.pl: The envir variable $main::{envir} is".join(" ",%main::envir)!); 142# warn eval(q! "PG.pl: The envir variable $main::{envir} is".join(" ",%main::envir)!);
143 my $rh_envir = eval(q!\%main::envir!); 143 my $rh_envir = eval(q!\%main::envir!);
144 my %envir = %$rh_envir; 144 my %envir = %$rh_envir;
145
146 # Save the file name for use in error messages
147 my ($callpkg,$callfile) = caller(0);
148 $envir{__files__}{$callfile} = $envir{templateDirectory}.$envir{fileName};
149
145 #no strict; 150 #no strict;
146 foreach my $var (keys %envir) { 151 foreach my $var (keys %envir) {
147 eval(q!$main::!.$var.q! = $main::envir{!.$var.q!}! ); #whew!! makes sure $var is interpolated but $main:: is evaluated at run time. 152 eval(q!$main::!.$var.q! = $main::envir{!.$var.q!}! ); #whew!! makes sure $var is interpolated but $main:: is evaluated at run time.
148 # warn eval(q! "var $var is defined ". $main::!.$var); 153 # warn eval(q! "var $var is defined ". $main::!.$var);
149 warn "Problem defining ", q{\$main::}.$var, " while initializing the PG problem: $@" if $@; 154 warn "Problem defining ", q{\$main::}.$var, " while initializing the PG problem: $@" if $@;

Legend:
Removed from v.2697  
changed lines
  Added in v.2698

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9