Hi all, I found out somthing that is really bad !
i have a sub routine thats return a hash:
---------------------------------
my %h = makeh();
sub makeh
{
my %that;
$that{eins} = "one";
$that{zwei} = "two";
$that{drei} = "three";
return(%that);
}
--------------------------------
fine ! it works for me since more than a year in a application. Today I
change the script and add somthing that rewuires 2 hashes and i tryed this
--------------------------------
my (%h, %i) = makeh();
sub makeh
{
my %that, %who;
$that{eins} = "one";
$that{zwei} = "two";
$that{drei} = "three";
$who{kris} = "wolff";
$who{alex} = "seidel";
return(%that, %who);
}
--------------------------------
but now, i have EVERYTHING in %h and nothing in %i !!!!
foreach(keys %h)
{
print "$_ - $h{$_}\n";
}
will show:
eins - one
kris - wolff
zwei - two
drei - three
alex - seidel
IS THIS A BUG OR AM I WRONG ???????
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
