From fc6e0759d3d64ed12f4c6ca189c3a9c4122e12eb Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Sun, 19 Nov 2017 14:39:03 -0800
Subject: [PATCH] Fix dead argument in pipe

---
 PBot/Interpreter.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/PBot/Interpreter.pm b/PBot/Interpreter.pm
index 46b72c75..8653bc16 100644
--- a/PBot/Interpreter.pm
+++ b/PBot/Interpreter.pm
@@ -249,6 +249,8 @@ sub interpret {
     $self->{pbot}->{logger}->log("Truncating keyword to 30 chars: $keyword\n");
   }
 
+  my $got_pipe = 0;
+
   if (defined $arguments && $arguments =~ m/\|\s*\{\s*[^}]+\}\s*$/) {
     $arguments =~ m/(.*?)\s*\|\s*\{\s*([^}]+)\}(.*)/;
     my ($args, $pipe, $rest) = ($1, $2, $3);
@@ -259,6 +261,7 @@ sub interpret {
     $stuff->{arguments} = $args;
     $stuff->{pipe} = $pipe;
     $stuff->{pipe_rest} = $rest;
+    $got_pipe = 1;
   }
 
   $stuff->{nickoverride} = $stuff->{nick} if defined $stuff->{nickoverride} and $stuff->{nickoverride} eq 'me';
@@ -295,7 +298,7 @@ sub interpret {
     $stuff->{root_keyword} = $keyword;
   }
 
-  $stuff->{arguments} = $arguments unless exists $stuff->{pipe};
+  $stuff->{arguments} = $arguments unless $got_pipe;
 
   return $self->SUPER::execute_all($stuff);
 }