perlquestion
kilinrax
While investigating <tt>Benchmark.pm</tt> I decided to try benchmarking different sorting algorithms, and have run into trouble with my implementation of <dfn>Merge Sort</dfn>;
<code>
sub Merge(@) {
my @array = @_;
MergeSort (0, $#array);
return @array;
sub MergeSort($$) {
my $first = shift;
my $last = shift;
if ($last>$first) {
my $mid = int(($last+$first)/2);
MergeSort($first, $mid);
MergeSort($mid+1, $last);
my @b;
@b = ( @array[$first..$mid], @array[reverse($mid+1..$last)] );
my ($i, $j, $k) = (0, $last-$first, $first);
for (; $k<=$last; $k++) {
$array[$k] = ($b[$i]<$b[$j]) ? $b[$i++] : $b[$j--];
}
}
}
}
</code>
The function works perfectly, but with warnings turned on, spits out the following:<br>
<code>
Variable "@array" will not stay shared at ./benchmark-sort.pl line [x].
</code>
Where <tt>[x]</tt> is the first line in <tt>MergeSort()</tt> which manipulates <tt>@array</tt>.<br><br>
Presumably I'm doing something naive here to do with the scoping of <tt>@array</tt>, which, in slightly different circumstances, could cause errors rather than just warnings.<br><br>
So, what does the warning mean, and how should I declare <tt>@array</tt> to avoid it?