Changeset 23249 for main/trunk/greenstone2/perllib/classify/List.pm

Timestamp:

2010-10-29T15:00:58+13:00 (14 years ago)

Author:

ak19

Message:

A useful debug version of the rm method which got added in when Dr Bainbridge fixed the mimetype file deleting issue (commit 23248).

File:

• main/trunk/greenstone2/perllib/classify/List.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/classify/List.pm

@@ -270 +270 @@
         # Unicode/Collate directory.
     require Unicode::Collate;
+    #print STDERR "*** What's in INC: ".join(", ", @INC) ."\n";
     $self->{'unicode_collator'} = Unicode::Collate->new();
+    #print STDERR "Table name: ".$self->{'unicode_collator'}->{'table'}."\n";
     }