mirror of
https://github.com/netbirdio/FreeBSD-ports.git
synced 2026-05-22 18:42:42 -07:00
12 lines
256 B
Perl
12 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 {
|