Explain me please the following command ..

[shlomyb]

Hi

Here is the code :
eval {$a = $parser->parsefile("$OLD_CONF_DIR$file");};
& {&LOG("ERROR","Erorr ...");print $@; exit(1); } if $@;


My question is not related to the eval command but to the "&" after it.... what does it mean ?

 

[Kirsle]

It seems to be calling an anonymous subroutine. It would be equivalent to this:

sub on_error {
   &LOG ("ERROR, "Error...");
   print $@;
   exit(1);
}
&on_error if $@;

-------------
Kirsle.net | Kirsle's Programs and Projects

 

[KevinADC]

also same as:

eval {$a = $parser->parsefile("$OLD_CONF_DIR$file");};
if ($@) {
   &LOG("ERROR","Error: $@");
   print $@;
   exit(1);
}

- Kevin, perl coder unexceptional!