Changeset 32343 for main/trunk/greenstone2/perllib

Timestamp:

2018-08-16T10:29:20+12:00 (6 years ago)

Author:

kjdon

Message:

quantifiers mustn't have \ before {

File:

• main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/DirectoryPlugin.pm

@@ -197 +197 @@
     
     # check to see we haven't got a cyclic path...
-    if ($dirname =~ m%(/.*)\{41}%) {
+    if ($dirname =~ m%(/.*){41}%) {
     print $outhandle "DirectoryPlugin: $dirname is 40 directories deep, is this a recursive path? if not increase constant in DirectoryPlugin.pm.\n";
     return 0;