forked from Lainports/opnsense-ports
11 lines
256 B
Perl
11 lines
256 B
Perl
--- TextBlock.pm.orig 1999-08-11 14:04:36 UTC
|
|
+++ TextBlock.pm
|
|
@@ -54,7 +54,7 @@ sub numElements {
|
|
# Returns the number of elements in the TextBlock
|
|
#
|
|
my $self = shift;
|
|
- return $#{@$self}+1;
|
|
+ return scalar(@$self);
|
|
}
|
|
|
|
sub Write {
|