From c54b2f0264717461bb4fafb91042915ad1c8339a Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Sun, 25 Apr 2021 18:19:10 -0400
Subject: [PATCH] move things back to isolated network now that i understand
 what i broke on my router and have fixed it

---
 lib/Bot/BB3/PluginManager.pm      | 8 ++++++++
 lib/Bot/BB3/Roles/Evalpastebin.pm | 2 +-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/Bot/BB3/PluginManager.pm b/lib/Bot/BB3/PluginManager.pm
index 90ece25..91e2d2e 100644
--- a/lib/Bot/BB3/PluginManager.pm
+++ b/lib/Bot/BB3/PluginManager.pm
@@ -7,6 +7,7 @@ use Data::Dumper;
 use Text::Glob qw/match_glob/;
 use Memoize;
 use Regexp::Assemble;
+use Scalar::Util qw/blessed/;
 use strict;
 
 sub new {
@@ -453,6 +454,13 @@ sub _execute_plugin_chain {
 
 	for my $command ( @$commands ) {
 		local $@;
+    
+    unless (blessed($command)) {
+      use Data::Dumper;
+      warn "Unblessed command! ".Dumper($command);
+      next;
+    };
+
 		my( $return, $output ) = eval { $command->command( $said, $self ) };
 
     use Data::Dumper;
diff --git a/lib/Bot/BB3/Roles/Evalpastebin.pm b/lib/Bot/BB3/Roles/Evalpastebin.pm
index 7a2d692..0b0fd2a 100644
--- a/lib/Bot/BB3/Roles/Evalpastebin.pm
+++ b/lib/Bot/BB3/Roles/Evalpastebin.pm
@@ -50,7 +50,7 @@ sub _start {
     # TODO setup TCP server.
     $self->{server} = POE::Component::Server::TCP->new(
         Port => 1784,
-        Address =>'192.168.32.1',
+        Address =>'192.168.196.2',
         ClientFilter => "POE::Filter::Line",
         ClientInput => \&receive_paste,
     );