6 lines
89 B
Plaintext
6 lines
89 B
Plaintext
s/\.jpeg$/\.jpg/i;
|
|
s/\.JPG$/\.jpg/i;
|
|
if (-f "$d/$_") {
|
|
$_="$_.jpg" unless (/\....$/);
|
|
}
|