mirror of
https://git.freebsd.org/ports.git
synced 2025-04-29 18:16:48 -04:00
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 {
|