X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/5aaa61d842746a8a8a244859258f21836c6ac2a8..19137c382e5808398dcfac1bc9d8b759d9204007:/doc/bugs/Hyperestraier_search_plug-in_defective.mdwn?ds=inline

diff --git a/doc/bugs/Hyperestraier_search_plug-in_defective.mdwn b/doc/bugs/Hyperestraier_search_plug-in_defective.mdwn
index 3ccdf8e2c..aec5dbc3f 100644
--- a/doc/bugs/Hyperestraier_search_plug-in_defective.mdwn
+++ b/doc/bugs/Hyperestraier_search_plug-in_defective.mdwn
@@ -1,43 +1,54 @@
 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();
+
+[[bugs/done]] ; thanks for the patch. Suprised it worked at all since the
+bad code was added (did it?) --[[Joey]]
+
+Thank you for accepting my patch. I can't see how it could ever have worked with the previous code, no. --[[Brix]]
\ No newline at end of file