anon push test

[git.ikiwiki.info.git] / doc / bugs / prune_causing_taint_mode_failures.mdwn

diff --git a/doc/bugs/prune_causing_taint_mode_failures.mdwn b/doc/bugs/prune_causing_taint_mode_failures.mdwn
index 1876d912942be37eba7aed2b324ab6651cab9ac7..5fc1d8b75d379ebc71c1f2b53d6452c225b1b1ab 100644 (file)
--- a/doc/bugs/prune_causing_taint_mode_failures.mdwn
+++ b/doc/bugs/prune_causing_taint_mode_failures.mdwn
@@ -11,7 +11,7 @@ I've no idea what's happening (hey, I'm a C programmer), but I've hacked prune()
 <pre>
 use Scalar::Util qw(tainted);
 
 <pre>
 use Scalar::Util qw(tainted);
 

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

         my $file=shift;
 
         unlink($file);
         my $file=shift;
 
         unlink($file);


@@ -25,7 +25,7 @@ sub prune ($) { #{{{
                         $dir = $1;
                 }
         }
                         $dir = $1;
                 }
         }

-} #}}}
+}

 </pre>
 
 > Old versions of perl are known to have bugs with taint checking.
 </pre>
 
 > Old versions of perl are known to have bugs with taint checking.