I am trying to use a package to hold all of my subs. I am calling the package in my
main program:
use control;
In control.pm I have package control; at the top and 1; at the bottom. This is what
the problematic area looks like:
%USERINFO = control::memUserInfo($user); # Returns %PROXYINFO
the routine itself looks like:
<!--StartFragment-->
sub memUserInfo {
my $user = shift;
dbmopen %PROXY, "$proxy", 0666 or die "Can't open proxy: $!\n";
my %PROXYINFO = "";
foreach $pair (split /\n/m, $PROXY{$user}) {
my($one,$two) = split(/:/,$pair);
$two = trim($two);
$PROXYINFO{$one} = $two;
}
dbmclose %PROXY;
return %PROXYINFO;
}
It doesn't return a value. The calling is done from the program, and the routine is in
control.pm.
Any help would be appreciated. Thanks
