avoid shelling

diff --git a/IkiWiki/Plugin/bzr.pm b/IkiWiki/Plugin/bzr.pm
index e7c1b8d8e1a801d1ffb1318d65266bc9396a0de0..9bee0c4b27611eda8966a05c773cd6e7930802d9 100644 (file)
--- a/IkiWiki/Plugin/bzr.pm
+++ b/IkiWiki/Plugin/bzr.pm
@@ -287,9 +287,7 @@ sub rcs_diff ($) {
 }
 
 sub extract_timestamp (@) {
 }
 
 sub extract_timestamp (@) {

-       # XXX filename passes through the shell here, should try to avoid
-       # that just in case
-       open (my $out, "@_ |");
+       open (my $out, "-|", @_);

        my @log = bzr_log($out);
 
        if (length @log < 1) {
        my @log = bzr_log($out);
 
        if (length @log < 1) {