Changeset 2818 for trunk/gsdl/perllib/plugins/RecPlug.pm

Timestamp:

2001-11-05T16:31:17+13:00 (22 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

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

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -256 +256 @@
         my ($filespec, $mdref);
         foreach $filespec (@extrametakeys) {
-        if ($subfile =~ /$filespec/) {
+        if ($subfile =~ /^$filespec$/) {
             print $outhandle "File \"$subfile\" matches filespec \"$filespec\"\n" 
             if ($verbosity > 2);