Don't do anything if given undef

git-svn-id: svn://svn.code.sf.net/p/xchat/svn@1352 893a96be-7f27-4fdf-9d1e-6aeec9d3cce1

diff --git a/plugins/perl/Xchat.pm b/plugins/perl/Xchat.pm
index fee21332741ddd7f32a7c4a0d82afba9fb35b85f..c0631bd0aeef200b52b25a3242f25cae6a9476c7 100644 (file)
--- a/plugins/perl/Xchat.pm
+++ b/plugins/perl/Xchat.pm
@@ -427,7 +427,7 @@ sub strip_code {
                $msg =~ s/$pattern//g;
                return $msg;
        } else {
-               $_[0] =~ s/$pattern//g;
+               $_[0] =~ s/$pattern//g if defined $_[0];
        }
 }
 
@@ -505,9 +505,9 @@ sub load {
                                eval { require POE::Kernel; };
 
                                unless( $@ ) {
-                                       POE::Kernel->run;
+#                                      POE::Kernel->run;
                                        $Xchat::Embed::POE_Kernel_running = 1;
-                                       no warnings 'redefine';
+#                                      no warnings 'redefine';
                                        *POE::Kernel::run = sub {};
                                }
                        }