Public Scratchpad

Download, Select Code To D/L

Help for this page

Select Code to Download

Select or download this

my $dbh = $DB->getDatabaseHandle();

...
    @$cnodes = sort { $a->[1] <=> $b->[1] } @$cnodes;
    shift @$cnodes while @$cnodes > 30;
}