From a735068f25385b5a774c2f15a6f1040db287626d Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@martintwee.oqapi.nl>
Date: Thu, 21 Oct 2010 13:56:52 +0200
Subject: [PATCH] Updating install_icons script.

---
 sbin/install_icons.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sbin/install_icons.pl b/sbin/install_icons.pl
index 88e623a..c36bae9 100644
--- a/sbin/install_icons.pl
+++ b/sbin/install_icons.pl
@@ -27,6 +27,8 @@ for ( qw{ assets adminConsole } ) {
     die "Cannot find large icon directory $largeDest" unless -d $largeDest;
     die "Cannot find small icon directory $smallDest" unless -d $smallDest;
 
+    next unless -d $largeOrig && -d $smallOrig;
+
     my ( %large, %small );
     opendir my $largeDir, "$largeOrig";
     while ( my $file = readdir $largeDir ) {
@@ -38,7 +40,7 @@ for ( qw{ assets adminConsole } ) {
     };
     closedir $largeDir;
 
-    opendir my $smallDir, "$smallOrig";
+    opendir my $smallDir, "$smallOrig" || next;
     while ( my $file = readdir $smallDir ) {
         next unless $file =~ m{ \.gif $ }xmsi;