Changeset 4790
- Timestamp:
- 2003-06-25T09:42:50+12:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ImagePlug.pm
r4785 r4790 316 316 my $height = 'unknown'; 317 317 318 if ($result =~ /^$image (\w+) (\d+)x(\d+)/) { 318 my $image_safe = quotemeta $image; 319 if ($result =~ /^$image_safe (\w+) (\d+)x(\d+)/) { 319 320 $type = $1; 320 321 $width = $2;
Note:
See TracChangeset
for help on using the changeset viewer.