workaround a bug in the discount perl binding

[git.ikiwiki.info.git] / doc / todo / Wrapper_config_with_multiline_regexp.mdwn

diff --git a/doc/todo/Wrapper_config_with_multiline_regexp.mdwn b/doc/todo/Wrapper_config_with_multiline_regexp.mdwn
index c0311bc92d9f8a7d3e2643e8fc7352f8a91c7dc3..7b4323de177cde72df7daf79d3f61e2bd6349fe4 100644 (file)
--- a/doc/todo/Wrapper_config_with_multiline_regexp.mdwn
+++ b/doc/todo/Wrapper_config_with_multiline_regexp.mdwn
@@ -13,12 +13,12 @@ Second, the untainting of $configstring should allow newlines.
     +++ wiki-meta/perl/IkiWiki.pm Mon Jun 11 10:52:07 2007
     @@ -205,7 +205,7 @@
      
     +++ wiki-meta/perl/IkiWiki.pm Mon Jun 11 10:52:07 2007
     @@ -205,7 +205,7 @@
      

-     sub possibly_foolish_untaint ($) { #{{{
+     sub possibly_foolish_untaint ($) {

       my $tainted=shift;
     - my ($untainted)=$tainted=~/(.*)/;
     + my ($untainted)=$tainted=~/(.*)/s;
       return $untainted;
       my $tainted=shift;
     - my ($untainted)=$tainted=~/(.*)/;
     + my ($untainted)=$tainted=~/(.*)/s;
       return $untainted;

-     } #}}}
+     }

      
     
     Modified: wiki-meta/perl/IkiWiki/Wrapper.pm
      
     
     Modified: wiki-meta/perl/IkiWiki/Wrapper.pm