Changeset 4790

Timestamp:

2003-06-25T09:42:50+12:00 (21 years ago)

Author:

davidb

Message:

Addition of 'quotemeta' to protect directory separate under Windows (\)
from triggering special Regular Expression syntax (e.g. \n \t) in RE match

File:

• trunk/gsdl/perllib/plugins/ImagePlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/ImagePlug.pm

@@ -316 +316 @@
     my $height = 'unknown';
 
-    if ($result =~ /^$image (\w+) (\d+)x(\d+)/) {
+    my $image_safe = quotemeta $image;
+    if ($result =~ /^$image_safe (\w+) (\d+)x(\d+)/) {
     $type = $1;
     $width = $2;