autouse Data::Dumper

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 );

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 );
 

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});
 

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);

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;
 

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;