From 0e8bed4e06c830ebcf4909b810e003a4aa29b2cb Mon Sep 17 00:00:00 2001 From: joey Date: Fri, 23 Feb 2007 12:40:31 +0000 Subject: web commit by HenrikBrixAndersen: Indent --- .../Hyperestraier_search_plug-in_defective.mdwn | 74 ++++++++++++---------- 1 file changed, 40 insertions(+), 34 deletions(-) (limited to 'doc/bugs') 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 -- cgit v1.2.3