Select Code to Download

--- c:\p517\perl\pp_hot.c --------------------------------------------
+----------
   456: 
...
   620: }
2807D721 C9               leave            
2807D722 C3               ret

OP             *
Perl_pp_add(PerlInterpreter * my_perl)
...
        return ((my_perl->Istack_sp) = sp, (my_perl->Iop)->op_next);
    }
}

--- c:\p517\perl\pp_hot.c --------------------------------------------
+----------
   456: 
...
   643:                 } while (0);
2807D721 C9               leave            
2807D722 C3               ret

#psuedo code probably
sub NewUser{
$Users{$_[0]}{'Locations'} = $magicHash{'NewRecord'}->AddClientLocatio
+ns($magicHash{'NewRecord'}->AddLocation($magicHash{'NewRecord'}));
}