diff options
| -rw-r--r-- | doc/bugs/Hyperestraier_search_plug-in_defective.mdwn | 74 |
1 files changed, 40 insertions, 34 deletions
diff --git a/doc/bugs/Hyperestraier_search_plug-in_defective.mdwn b/doc/bugs/Hyperestraier_search_plug-in_defective.mdwn index 3ccdf8e2c..7f22e0eaf 100644 --- a/doc/bugs/Hyperestraier_search_plug-in_defective.mdwn +++ b/doc/bugs/Hyperestraier_search_plug-in_defective.mdwn @@ -1,43 +1,49 @@ The map() function used in the hyperestraier search plug-in doesn't work as intended as ilustrated by this simple script: -#!/usr/bin/perl -w -use strict; -my @foo = ( - [ qw/foo bar baz/ ], - [ qw/fee faa fum/ ], - ); -# similar to current ikiwiki code (defective): -my @bar = map { "/path/to/$_" foreach @{$_} } @foo; -# this works: -#my @bar = map { map { "/path/to/$_" } @{$_} } @foo; -foreach (@bar) { - print "$_\n"; -} + #!/usr/bin/perl -w + use strict; + + my @foo = ( + [ qw/foo bar baz/ ], + [ qw/fee faa fum/ ], + ); + + # similar to current ikiwiki code (defective): + my @bar = map { "/path/to/$_" foreach @{$_} } @foo; + + # this works: + #my @bar = map { map { "/path/to/$_" } @{$_} } @foo; + + foreach (@bar) { + print "$_\n"; + } Expected output: -/path/to/foo -/path/to/bar -/path/to/baz -/path/to/fee -/path/to/faa -/path/to/fum + + /path/to/foo + /path/to/bar + /path/to/baz + /path/to/fee + /path/to/faa + /path/to/fum Current output: -Useless use of string in void context at perl-map.pl line 10. + + Useless use of string in void context at perl-map.pl line 10. The patch below fixes this issue: ---- IkiWiki/Plugin/search.pm.orig Thu Feb 1 23:52:03 2007 -+++ IkiWiki/Plugin/search.pm Thu Feb 1 23:52:41 2007 -@@ -64,8 +64,9 @@ - debug(gettext("updating hyperestraier search index")); - estcmd("gather -cm -bc -cl -sd", - map { -- Encode::encode_utf8($config{destdir}."/".$_) -- foreach @{$renderedfiles{pagename($_)}}; -+ map { -+ Encode::encode_utf8($config{destdir}."/".$_) -+ } @{$renderedfiles{pagename($_)}}; - } @_ - ); - estcfg();
\ No newline at end of file + --- IkiWiki/Plugin/search.pm.orig Thu Feb 1 23:52:03 2007 + +++ IkiWiki/Plugin/search.pm Thu Feb 1 23:52:41 2007 + @@ -64,8 +64,9 @@ + debug(gettext("updating hyperestraier search index")); + estcmd("gather -cm -bc -cl -sd", + map { + - Encode::encode_utf8($config{destdir}."/".$_) + - foreach @{$renderedfiles{pagename($_)}}; + + map { + + Encode::encode_utf8($config{destdir}."/".$_) + + } @{$renderedfiles{pagename($_)}}; + } @_ + ); + estcfg();
\ No newline at end of file |