From b0909a4c57cb056189c5c0503404ba4c4fb2aa00 Mon Sep 17 00:00:00 2001
From: Dmitry Smirnov <onlyjob@member.fsf.org>
Date: Thu, 16 Apr 2015 15:42:56 +1000
Subject: [PATCH] autouse Data::Dumper

---
 scripts/zmtrack.pl.in   | 2 +-
 scripts/zmtrigger.pl.in | 2 +-
 scripts/zmupdate.pl.in  | 2 +-
 scripts/zmvideo.pl.in   | 2 +-
 scripts/zmwatch.pl.in   | 2 +-
 scripts/zmx10.pl.in     | 4 ++--
 6 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/scripts/zmtrack.pl.in b/scripts/zmtrack.pl.in
index ec8168579..b1eec2d7e 100644
--- a/scripts/zmtrack.pl.in
+++ b/scripts/zmtrack.pl.in
@@ -61,7 +61,7 @@ use constant SLEEP_TIME => 10000; # In microseconds
 use ZoneMinder;
 use DBI;
 use POSIX;
-use Data::Dumper;
+use autouse 'Data::Dumper'=>qw(Dumper);
 use Getopt::Long;
 use autouse 'Pod::Usage'=>qw(pod2usage);
 use Time::HiRes qw( usleep );
diff --git a/scripts/zmtrigger.pl.in b/scripts/zmtrigger.pl.in
index 7b9070bad..e43b00bbb 100644
--- a/scripts/zmtrigger.pl.in
+++ b/scripts/zmtrigger.pl.in
@@ -85,7 +85,7 @@ push( @connections,
 
 use DBI;
 #use Socket;
-use Data::Dumper;
+use autouse 'Data::Dumper'=>qw(Dumper);
 use POSIX qw( EINTR );
 use Time::HiRes qw( usleep );
 
diff --git a/scripts/zmupdate.pl.in b/scripts/zmupdate.pl.in
index 522f211ec..75ac52fa0 100644
--- a/scripts/zmupdate.pl.in
+++ b/scripts/zmupdate.pl.in
@@ -76,7 +76,7 @@ use POSIX;
 use DBI;
 use Getopt::Long;
 use autouse 'Pod::Usage'=>qw(pod2usage);
-use Data::Dumper;
+use autouse 'Data::Dumper'=>qw(Dumper);
 
 use constant EVENT_PATH => ($Config{ZM_DIR_EVENTS}=~m|/|)?$Config{ZM_DIR_EVENTS}:($Config{ZM_PATH_WEB}.'/'.$Config{ZM_DIR_EVENTS});
 
diff --git a/scripts/zmvideo.pl.in b/scripts/zmvideo.pl.in
index ed88a155c..6a63502ee 100644
--- a/scripts/zmvideo.pl.in
+++ b/scripts/zmvideo.pl.in
@@ -63,7 +63,7 @@ use bytes;
 @EXTRA_PERL_LIB@
 use ZoneMinder;
 use DBI;
-use Data::Dumper;
+use autouse 'Data::Dumper'=>qw(Dumper);
 use POSIX qw(strftime);
 use Getopt::Long qw(:config no_ignore_case );
 use autouse 'Pod::Usage'=>qw(pod2usage);
diff --git a/scripts/zmwatch.pl.in b/scripts/zmwatch.pl.in
index 8fc97fd2a..7d5193439 100644
--- a/scripts/zmwatch.pl.in
+++ b/scripts/zmwatch.pl.in
@@ -57,7 +57,7 @@ use constant START_DELAY => 30; # To give everything else time to start
 use ZoneMinder;
 use POSIX;
 use DBI;
-use Data::Dumper;
+use autouse 'Data::Dumper'=>qw(Dumper);
 
 $| = 1;
 
diff --git a/scripts/zmx10.pl.in b/scripts/zmx10.pl.in
index 1a0b15262..17d9546b2 100644
--- a/scripts/zmx10.pl.in
+++ b/scripts/zmx10.pl.in
@@ -65,7 +65,7 @@ use POSIX;
 use Socket;
 use Getopt::Long;
 use autouse 'Pod::Usage'=>qw(pod2usage);
-use Data::Dumper;
+use autouse 'Data::Dumper'=>qw(Dumper);
 
 use constant SOCK_FILE => $Config{ZM_PATH_SOCKS}.'/zmx10.sock';
 
@@ -169,7 +169,7 @@ use POSIX;
 use DBI;
 use Socket;
 use X10::ActiveHome;
-use Data::Dumper;
+use autouse 'Data::Dumper'=>qw(Dumper);
 
 our $dbh;
 our $x10;