I have a PERL script which has worked beautifully for years, but following an upgrade to my server host's PERL version 5.10.something, it has stopped and returns a 500 error.
The line in question is this:
It returns a drop-list for all files that are .gif or .jpg. The issue is where it says whether it is .gif or .jpg file. Can anyone tell me what I should change it to get it to get it to work?Code:$img_select.="<option>$_</option>\n" if -f "$image_dir/$_" && $_=~m/.\gif|.\jpg/i;