blob: 213e45b07ce6b2d72a2102f28d4d76a06f97591c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
--- lib/WWW/Search/Test.pm~ Tue Jul 15 05:02:28 2003
+++ lib/WWW/Search/Test.pm Thu Aug 7 15:18:31 2003
@@ -627,7 +627,7 @@
print $oResult->url, "\n";
foreach my $sField (qw( title description score change_date index_date size company location source ))
{
- print " $sField==", $oResult->$sField, "==\n" if defined($oResult->$sField);
+ print " $sField==", eval "$oResult->$sField", "==\n" if $oResult->can($sField);
} # foreach
} # foreach
} # if
|
