Changeset 24291 for main/trunk/greenstone2/perllib/util.pm

Timestamp:

2011-07-19T14:15:29+12:00 (13 years ago)

Author:

sjm84

Message:

More changes to do with the way PDF files are parsed

File:

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

main/trunk/greenstone2/perllib/util.pm

@@ -83 +83 @@
     my ($files,$file_accept_re,$file_reject_re) = @_;
 
+#   my ($cpackage,$cfilename,$cline,$csubr,$chas_args,$cwantarray) = caller(2);
+#   my ($lcfilename) = ($cfilename =~ m/([^\\\/]*)$/);
+#   print STDERR "** Calling method (2): $lcfilename:$cline $cpackage->$csubr\n";
+    
     my @files_array = (ref $files eq "ARRAY") ? @$files : ($files);