Changeset 5454

Timestamp:

2003-09-05T12:08:21+12:00 (21 years ago)

Author:

jrm21

Message:

seemed to need a \Q to protect a variable in LHS of an s/;

File:

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

trunk/gsdl/perllib/plugins/BibTexPlug.pm

@@ -677 +677 @@
         $replacement=$char;
         }
-        $text =~ s/\\$tex/$replacement/g;
+        $text =~ s/\\\Q$tex/$replacement/g;
     }