diff options
Diffstat (limited to 'Xerl/XML/Reader.pm')
| -rw-r--r-- | Xerl/XML/Reader.pm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index 1a9288b..9fed848 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.pm @@ -41,11 +41,7 @@ sub open($) { my Xerl::Tools::FileIO $xmlfile = Xerl::Tools::FileIO->new( path => $self->get_path() ); - $xmlfile->fslurp(); - - # Xerl::Main::Global::PLAIN($self->get_path()); - # Xerl::Main::Global::DEBUG(@{$xmlfile->get_array()}); - + return -1 if -1 == $xmlfile->fslurp(); $self->set_array( $xmlfile->get_array() ); return undef; @@ -143,7 +139,10 @@ sub parse($) { config => $config ); - $reader->open(); + if (-1 == $reader->open()) { + $config->set_shutdown(1); + return undef; + } $reader->parse(); my Xerl::XML::Element $starttag = |