scratchpad
hackdaddy
<CODE>
#!/usr/bin/perl -w
use strict;
# memory fault bug
my %set;
$set{blah} = "nah";
$set{caw} = "hah";
while( (key, value) = each( %set ) ) {
#$table->{$pk}->{$key} = $set{$key};
}
</CODE>
<br /><a HREF="/index.pl?node_id=209555">Perl Style Guides for Large Projects</a>
<br /><a HREF="/index.pl?node_id=131">The Monastery Gates</a>