Select Code to Download

struct archive_e      => {
    name           => '$',
...
    file_group     => '$',
    vsn            => '$'
};

           $newp = archive_e->new();
           $newp->criteria($pdirective);
...
           push(@ap, $newp);<-------Where it goes south?
           print "ap array starts here\n";
           print Dumper @ap;

$VAR1 = bless( {
                 'archive_e::regex' => [
...
                 'archive_e::vsn' => 'root/SteveMusic',
                 'archive_e::file_owner' => 'ANY'
               }, 'archive_e' );

$VAR1 = bless( {
                 'archive_e::regex' => [
...
                 'archive_e::vsn' => 'root/Video',
                 'archive_e::file_owner' => 'ANY'
               }, 'archive_e' );