From 497b7133005abbade0e048c0c4f62f945e2ed69f Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Thu, 18 Jun 2015 23:36:51 -0700
Subject: [PATCH] Add response messages for `refresh` command

---
 PBot/Refresher.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/PBot/Refresher.pm b/PBot/Refresher.pm
index 7bab7f6c..bdbcf0c6 100644
--- a/PBot/Refresher.pm
+++ b/PBot/Refresher.pm
@@ -38,20 +38,29 @@ sub initialize {
 sub refresh {
   my ($self, $from, $nick, $user, $host, $arguments) = @_;
 
-  eval {
+  my $result = eval {
     if (not $arguments) {
       $self->{pbot}->{logger}->log("Refreshing all modified modules\n");
       $self->{refresher}->refresh;
+      return "Refreshed all modified modules.\n";
     } else {
       $self->{pbot}->{logger}->log("Refreshing module $arguments\n");
       if ($self->{refresher}->refresh_module_if_modified($arguments)) {
         $self->{pbot}->{logger}->log("Refreshed module.\n");
+        return "Refreshed module.\n";
       } else {
         $self->{pbot}->{logger}->log("Module had no changes; not refreshed.\n");
+        return "Module had no changes; not refreshed.\n";
       }
     }
   };
-  $self->{pbot}->{logger}->log("Error refreshing: $@\n") if $@;
+
+  if ($@) {
+    $self->{pbot}->{logger}->log("Error refreshing: $@\n");
+    return $@;
+  }
+
+  return $result;
 }
 
 1;