UnitedKnowledge/webgui_newsletter
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Updating install_icons script.

Browse source
This commit is contained in:
Martin Kamerbeek 2010-10-21 13:56:52 +02:00
parent dd8c91cb44
commit a735068f25
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
sbin/install_icons.pl
View file

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