[Omaha.pm] Pulling in a hash via "exec"...FAIL

Jay Hannah jay at jays.net
Wed Aug 6 18:47:44 PDT 2008


On Aug 6, 2008, at 5:08 PM, Dan Linder wrote:
> sub retrieve_fields {
>         my ( $file )=@_;
>         my %fields;
>         open(FILE, $file)
>         {
>                 local $/;
>                 eval <FILE>;
>         }
>         return %fields;
> }

Have you tried this instead?

sub retrieve_fields {
         my ( $file )=@_;
         my $fields;
         open(FILE, $file)
         {
                 local $/;
                 eval <FILE>;
         }
         return $fields;
}

HTH,

j



More information about the Omaha-pm mailing list