forked from Lainports/freebsd-ports
11 lines
331 B
Perl
11 lines
331 B
Perl
--- OpenFTS/Index.pm.orig Wed Jul 24 02:15:37 2002
|
|
+++ OpenFTS/Index.pm Tue Aug 19 20:28:53 2003
|
|
@@ -201,7 +201,7 @@
|
|
|
|
foreach my $i ( 0..$#{$rv} ) {
|
|
my $param = $rv->[$i]{param};
|
|
- if ( length $param ) {
|
|
+ if ( $param and length $param ) {
|
|
$rv->[$i]{param} = eval $param;
|
|
die "Can't eval '$param': $@" if $@;
|
|
}
|