in reply to "use vars" vs. "our" or Strict after the fact
Those my variables can be included in the use vars statement instead (but not vice-versa).use strict; use vars qw($filevar1 $filevar2 $filevar3); my($scriptvar1,$scriptvar2,$scriptvar3,$required) = 0; my$file = 'somefile'; if(-e $file){ if(eval "require '$file'"){ $scriptvar1 = $filevar1; $scriptvar2 = $filevar2; $scriptvar3 = $filevar3; $required = 1; } }
|
|---|