Changeset 5845


Ignore:
Timestamp:
2003-11-14T14:52:09+13:00 (20 years ago)
Author:
mdewsnip
Message:

David's fixes for running ImagePlug under Windows.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/plugins/ImagePlug.pm

    r5680 r5845  
    309309
    310310    # Use the ImageMagick "identify" command to get the file specs
    311     my $command = "identify $image 2>&1";
     311    my $command = "identify \"$image\" 2>&1";
    312312    print $outhandle "$command\n" if ($verbosity > 2);
    313313    my $result = '';
    … …  
    332332    $size = $1;
    333333    }
    334     elsif ($result =~ m/^.* ([0-9]+)(\.([0-9]+))?kb/) {
     334    elsif ($result =~ m/^.* ([0-9]+)(\.([0-9]+))?kb?/) {
    335335    $size = 1024 * $1;
    336336    if (defined($2)) {
Note: See TracChangeset for help on using the changeset viewer.