oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix another smart match/! binding problem

Browse source
This commit is contained in:
Colin Kuskie 2010-09-22 12:04:19 -07:00
parent 93b30c6ac2
commit 636bde7131
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Form/Image.pm
View file

@ -140,7 +140,7 @@ sub getValue {
my @files = @{$storage->getFiles};
my @images = grep{$storage->isImage($_)} @files; # Put all filenames that isImage returns true for into @images
if ($self->get('forceImageOnly')) {
$storage->deleteFile($_) for grep{ ! $_ ~~ @images } @files; # Search @files for filenames that are not in @images and delete them
$storage->deleteFile($_) for grep{ ! ($_ ~~ @images) } @files; # Search @files for filenames that are not in @images and delete them
@files = @images;
}