Changeset 1810

Timestamp:

2000-12-19T12:56:30+13:00 (23 years ago)

Author:

sjboddie

Message:

Fixed a bug that showed up when using Perl 5.6 on windows

File:

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

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -76 +76 @@
     # check to make sure we're not reading our own archives 
     # or index directory
-    if ($dirname =~ m%^$ENV{'GSDLHOME'}/.*/import.*/(archives|index)$%) {
+    my $gsdlhome = quotemeta ($ENV{'GSDLHOME'});
+    if ($dirname =~ m%^${gsdlhome}/.*?/import.*?/(archives|index)$%) {
     print $outhandle "RecPlug: $dirname appears to be a reference to a Greenstone collection, skipping.\n";
     return 1;