Ok using Data::Dumper to determine how the data looks I get Tool::size on Sol and size on HP... Like this

If I access the data like so $t->{size} it works fine on HP and on Sol I have to do this to get the same result $t->Tool::size notice there are not braces on the Sol version. That is another quandry.

Is that helpful? I have read everything I could find re:Class::Struct which isn't much incidentaly.

And really this is my lack of real OOP knowledge that caused me to use this approach. I don't have a month to learn OOP just to repair this issue. When I first did this we only had HP so there was NO issue.

Sorry, I still can't tell what you're talking about. What are you passing to Data::Dumper? What is this $t you're talking about? Some sample code would help.

struct Dlayer => {
                  name      => '$',
                  drl_start => '$',
                  drl_end   => '$',
                  tool      => '%',
              };

struct Tool => {
                 bit     => '$',
                 finish  => '$',
                 tol     => '$',
                 type    => '$',
                 ptholes => '$',
                 count   => '$',
                 ar      => '%',
                 };

struct AR => {
                value  => '$',
                ranges => '$',
               };


sub Dlayer::addtool {
    my $this = shift;
    my($s,$bit,$f,$tol,$is_plated,$c,$ar) = @_;

    my $nt = new Tool;
    $nt->bit($bit);
    $nt->finish($f);
    $nt->tol($tol);
    $nt->ptholes($is_plated);
    $nt->count($c);

    my $h = $this->tool;
    $h->{$s} = $nt;
    $this->tool($h);
    $nt;
}
[download]

And I access the data like this

#build the drill data structure
foreach my $d ( @d_layer_list ) {

    my $do = new Dlayer;
    $do->name($d->{name});
    $do->drl_start($d->{drl_start});
    $do->drl_end($d->{drl_end});

    set_d_vals($do,$d->{name});

    push(@drill_arr,$do);

}

foreach my $o ( @drill_arr ) {
        while (my ($k,$t) = each %{$o->tool} ) {
            printf SESAME "Drill: %s %s %s %s\n", $o->name, $t->bit, $
+o->drl_start, $o->drl_end;
            # print SESAME "Drill: $o->{name} $t->{bit} $o->{drl_start
+} $o->{drl_end}\n";
            print SESAME "\t$drill_str{size} = $k\n";
            foreach my $c ( keys %{$t} ) {


            #     print Dumper($c);

                if ( $OS eq "hpux" ) {
                    printf(SESAME "\t%s = %s\n", $drill_str{$c}, $t->{
+$c}) unless $c eq "ar" || $c eq "bit" || $c eq "type";
                } else {

                    my $pruned = $c;
                    $pruned =~ s/Tool:://;

                    printf(SESAME "\t%s = %s\n", $drill_str{$pruned}, 
+$t->$pruned) unless $pruned eq "ar" || $pruned eq "bit" || $pruned eq
+ "type";

                }


            }
      }
}
[download]

Sorry if I missed something... my brain is really becoming frazzled by this. If I get it to work on one platform I find I have broken something else on the other...