From fe03215c0e78bfeade6cd30529018e0ff1d66c15 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Tue, 29 Jul 2014 21:13:31 -0700
Subject: [PATCH] Some systems are missing Data::Dumper

---
 package-updates/package-updates-lib.pl | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/package-updates/package-updates-lib.pl b/package-updates/package-updates-lib.pl
index f512925fb..1107b9928 100644
--- a/package-updates/package-updates-lib.pl
+++ b/package-updates/package-updates-lib.pl
@@ -7,7 +7,6 @@ eval "use WebminCore;";
 &foreign_require("software", "software-lib.pl");
 &foreign_require("cron", "cron-lib.pl");
 &foreign_require("webmin", "webmin-lib.pl");
-use Data::Dumper;
 
 $available_cache_file = "$module_config_directory/available.cache";
 $current_cache_file = "$module_config_directory/current.cache";
@@ -139,10 +138,13 @@ return 0;
 sub write_cache_file
 {
 my ($file, $arr) = @_;
-&open_tempfile(FILE, ">$file");
-&print_tempfile(FILE, Dumper($arr));
-&close_tempfile(FILE);
-$read_cache_file_cache{$file} = $arr;
+eval "use Data::Dumper";
+if (!$@) {
+	&open_tempfile(FILE, ">$file");
+	&print_tempfile(FILE, Dumper($arr));
+	&close_tempfile(FILE);
+	$read_cache_file_cache{$file} = $arr;
+	}
 }
 
 # read_cache_file(file)