From a02a325dcc102067bd8ea7686aef139fd7fb3908 Mon Sep 17 00:00:00 2001
From: Oliver Gorwits <oliver@cpan.org>
Date: Mon, 4 Mar 2013 19:29:22 +0000
Subject: [PATCH] remove unecessary PATH extension

---
 Netdisco/bin/netdisco-web-fg | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/Netdisco/bin/netdisco-web-fg b/Netdisco/bin/netdisco-web-fg
index 076e662d..8e71c7de 100755
--- a/Netdisco/bin/netdisco-web-fg
+++ b/Netdisco/bin/netdisco-web-fg
@@ -4,14 +4,9 @@ use strict;
 use warnings FATAL => 'all';
 
 BEGIN {
-  # stuff useful locations into @INC and $PATH
-  use Config;
-  use FindBin;
-  FindBin::again();
+  # stuff useful locations into @INC
   use Path::Class 'dir';
 
-  my $location = $FindBin::RealBin;
-  $ENV{PATH} = $location . $Config{path_sep} . $ENV{PATH};
   unshift @INC,
     dir($location)->parent->subdir('lib')->stringify,
     dir($location, 'lib')->stringify;