Changeset 3669

Timestamp:

2003-01-14T09:02:15+13:00 (21 years ago)

Author:

jrm21

Message:

need to protect variable in s/ in case it has special chars in it (such as

• . ( [ )

File:

• trunk/gsdl/bin/script/gimp/title_icon-1.2.pl (modified) (1 diff)

trunk/gsdl/bin/script/gimp/title_icon-1.2.pl

@@ -386 +386 @@
     while (length ($text) >= $wrap_length) {
     my $line = substr ($text, 0, $wrap_length);
-    $text =~ s/^$line//;
+    $text =~ s/^\Q$line\E//;
     $line =~ s/\s([^\s]*)$/\n/;
     $text = $1 . $text;