Update of /cvsroot/fink/fink/perlmod/Fink
In directory sc8-pr-cvs1:/tmp/cvs-serv18922
Modified Files:
ChangeLog Engine.pm
Log Message:
'fink apropos' command now also matches the package name, not just the package
description (Patch #661169).
Index: ChangeLog
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/ChangeLog,v
retrieving revision 1.242
retrieving revision 1.243
diff -u -r1.242 -r1.243
--- ChangeLog 14 Jan 2003 20:28:24 -0000 1.242
+++ ChangeLog 14 Jan 2003 20:32:10 -0000 1.243
@@ -1,5 +1,8 @@
2003-01-14 Max Horn <[EMAIL PROTECTED]>
+ * Engine.pm: 'fink apropos' command now also matches the package name,
+ not just the package description (Patch #661169).
+
* Services.pm: Added terminal width fix from patch #598402.
2003-01-13 Finlay Dobbie <[EMAIL PROTECTED]>
Index: Engine.pm
===================================================================
RCS file: /cvsroot/fink/fink/perlmod/Fink/Engine.pm,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -r1.83 -r1.84
--- Engine.pm 14 Jan 2003 14:08:57 -0000 1.83
+++ Engine.pm 14 Jan 2003 20:32:30 -0000 1.84
@@ -393,7 +393,7 @@
next unless $vo->get_section($vo) =~ /\Q$section\E/i;
}
if ($cmd eq "apropos") {
- next unless $vo->get_shortdescription(150) =~ /\Q$pattern\E/i;
+ next unless ( $vo->has_param("Description") && $vo->param("Description") =~
+/\Q$pattern\E/i ) || $vo->get_name() =~ /\Q$pattern\E/i;
}
printf $formatstr,
$iflag, $pname, $lversion, $description;
-------------------------------------------------------
This SF.NET email is sponsored by: Take your first step towards giving
your online business a competitive advantage. Test-drive a Thawte SSL
certificate - our easy online guide will show you how. Click here to get
started: http://ads.sourceforge.net/cgi-bin/redirect.pl?thaw0027en
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits
