Changeset 17322

Timestamp:

2008-09-18T13:07:48+12:00 (16 years ago)

Author:

kjdon

Message:

added a -f test on filename in can_process_this_file to prevent this trying to work on directories

File:

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

gsdl/trunk/perllib/plugins/ReadXMLFile.pm

@@ -164 +164 @@
     my ($filename) = @_;
 
-    if ($self->SUPER::can_process_this_file($filename) && $self->check_doctype($filename)) {
+    if (-f $filename && $self->SUPER::can_process_this_file($filename) && $self->check_doctype($filename)) {
     return 1; # its a file for us
     }