| Subject: | Unitialized value in comparison |
When run with warnings, messages appear:
Use of uninitialized value in string eq at
/usr/local/perl/lib/site_perl/String/LCSS.pm line 55.
Fix:
*** lib/String/LCSS.pm.orig Thu Apr 10 18:08:21 2003
--- lib/String/LCSS.pm Mon Apr 10 18:53:20 2006
***************
*** 50,56 ****
$j = $k;
$length = 0;
for ( $ii = 0; $ii < ($m-$i); $ii++ ) {
! if ( $x[$i+$ii] eq $y[$j] ) {
$xi = $i+$ii unless ( $length );
$xj = $j unless ( $length );
$length++;
--- 51,57 ----
$j = $k;
$length = 0;
for ( $ii = 0; $ii < ($m-$i); $ii++ ) {
! if ( $j < $n && $x[$i+$ii] eq $y[$j] ) {
$xi = $i+$ii unless ( $length );
$xj = $j unless ( $length );
$length++;