From 19076fdcc2161f6eb55949394438e5c3fc8ec686 Mon Sep 17 00:00:00 2001
From: Vitaliy Filippov <vitalif@yourcmc.ru>
Date: Mon, 27 Oct 2014 18:26:18 +0300
Subject: [PATCH] No redefine warnings during reload

---
 HTTPServerSimple.pl | 2 +-
 mod_perl.pl         | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/HTTPServerSimple.pl b/HTTPServerSimple.pl
index d7c89a93c..36464ab6d 100755
--- a/HTTPServerSimple.pl
+++ b/HTTPServerSimple.pl
@@ -403,7 +403,7 @@ sub reload
     for (@reload)
     {
         print STDERR __PACKAGE__ . ": Reloading $_\n";
-        eval { require $_ };
+        eval { no warnings 'redefine'; require $_ };
         if ($@)
         {
             warn $@;
diff --git a/mod_perl.pl b/mod_perl.pl
index af6a2cf6c..11c30c4ad 100644
--- a/mod_perl.pl
+++ b/mod_perl.pl
@@ -171,7 +171,7 @@ sub reload
     for (@reload)
     {
         print STDERR __PACKAGE__ . ": Reloading $_\n";
-        eval { require $_ };
+        eval { no warnings 'redefine'; require $_ };
         if ($@)
         {
             warn $@;