From 52b754ed0c20c7d0b641f1fddeed6c0a445a09f8 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Fri, 18 Apr 2014 16:23:54 +0000
Subject: [PATCH] split BEGIN block to force hide imports from perl

---
 Netdisco/bin/nd-import-topology     | 2 ++
 Netdisco/bin/netdisco-daemon        | 2 ++
 Netdisco/bin/netdisco-db-deploy     | 2 ++
 Netdisco/bin/netdisco-deploy        | 2 ++
 Netdisco/bin/netdisco-do            | 2 ++
 Netdisco/bin/netdisco-rancid-export | 2 ++
 Netdisco/bin/netdisco-web           | 2 ++
 7 files changed, 14 insertions(+)

diff --git a/Netdisco/bin/nd-import-topology b/Netdisco/bin/nd-import-topology
index f4d8fe63..e9a77081 100755
--- a/Netdisco/bin/nd-import-topology
+++ b/Netdisco/bin/nd-import-topology
@@ -22,7 +22,9 @@ BEGIN {
       die "Sorry, can't find libs required for App::Netdisco.\n"
         if !exists $ENV{PERLBREW_PERL};
   }
+}
 
+BEGIN {
   use Path::Class;
 
   # stuff useful locations into @INC and $PATH
diff --git a/Netdisco/bin/netdisco-daemon b/Netdisco/bin/netdisco-daemon
index 1a96bb62..c36c5f13 100755
--- a/Netdisco/bin/netdisco-daemon
+++ b/Netdisco/bin/netdisco-daemon
@@ -22,7 +22,9 @@ BEGIN {
       die "Sorry, can't find libs required for App::Netdisco.\n"
         if !exists $ENV{PERLBREW_PERL};
   }
+}
 
+BEGIN {
   use Path::Class;
 
   # stuff useful locations into @INC and $PATH
diff --git a/Netdisco/bin/netdisco-db-deploy b/Netdisco/bin/netdisco-db-deploy
index b174485b..8e774626 100755
--- a/Netdisco/bin/netdisco-db-deploy
+++ b/Netdisco/bin/netdisco-db-deploy
@@ -22,7 +22,9 @@ BEGIN {
       die "Sorry, can't find libs required for App::Netdisco.\n"
         if !exists $ENV{PERLBREW_PERL};
   }
+}
 
+BEGIN {
   use Path::Class;
 
   # stuff useful locations into @INC and $PATH
diff --git a/Netdisco/bin/netdisco-deploy b/Netdisco/bin/netdisco-deploy
index 3119e898..7a6b57c0 100755
--- a/Netdisco/bin/netdisco-deploy
+++ b/Netdisco/bin/netdisco-deploy
@@ -22,7 +22,9 @@ BEGIN {
       die "Sorry, can't find libs required for App::Netdisco.\n"
         if !exists $ENV{PERLBREW_PERL};
   }
+}
 
+BEGIN {
   use Path::Class;
 
   # stuff useful locations into @INC and $PATH
diff --git a/Netdisco/bin/netdisco-do b/Netdisco/bin/netdisco-do
index 3b0113a4..8b633d5f 100755
--- a/Netdisco/bin/netdisco-do
+++ b/Netdisco/bin/netdisco-do
@@ -22,7 +22,9 @@ BEGIN {
       die "Sorry, can't find libs required for App::Netdisco.\n"
         if !exists $ENV{PERLBREW_PERL};
   }
+}
 
+BEGIN {
   use Path::Class;
 
   # stuff useful locations into @INC and $PATH
diff --git a/Netdisco/bin/netdisco-rancid-export b/Netdisco/bin/netdisco-rancid-export
index 36ee6313..9dd1840e 100755
--- a/Netdisco/bin/netdisco-rancid-export
+++ b/Netdisco/bin/netdisco-rancid-export
@@ -22,7 +22,9 @@ BEGIN {
       die "Sorry, can't find libs required for App::Netdisco.\n"
         if !exists $ENV{PERLBREW_PERL};
   }
+}
 
+BEGIN {
   use Path::Class;
 
   # stuff useful locations into @INC and $PATH
diff --git a/Netdisco/bin/netdisco-web b/Netdisco/bin/netdisco-web
index 402da1f0..63bf59da 100755
--- a/Netdisco/bin/netdisco-web
+++ b/Netdisco/bin/netdisco-web
@@ -22,7 +22,9 @@ BEGIN {
       die "Sorry, can't find libs required for App::Netdisco.\n"
         if !exists $ENV{PERLBREW_PERL};
   }
+}
 
+BEGIN {
   use Path::Class;
 
   # stuff useful locations into @INC and $PATH