diff options
Diffstat (limited to 'Xerl/XML')
| -rw-r--r-- | Xerl/XML/Element.pm | 2 | ||||
| -rw-r--r-- | Xerl/XML/Reader.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/Xerl/XML/Element.pm b/Xerl/XML/Element.pm index d18e0b5..0867841 100644 --- a/Xerl/XML/Element.pm +++ b/Xerl/XML/Element.pm @@ -41,7 +41,7 @@ sub params_str($) { my Xerl::XML::Element $self = $_[0]; my $params = $self->get_params(); - return if $params eq ''; + return undef if $params eq ''; return join '', map { " $_=\"" . $params->{$_} . '"' } keys %$params; } diff --git a/Xerl/XML/Reader.pm b/Xerl/XML/Reader.pm index aeb8c74..c5ab2d3 100644 --- a/Xerl/XML/Reader.pm +++ b/Xerl/XML/Reader.pm @@ -17,7 +17,7 @@ use Xerl::XML::Element; use Xerl::XML::SAXHandler; sub open($) { - my Xerl::XML::Reader $self = $_[0]; + my Xerl::XML::Reader $self = shift; if ( -f $self->get_path() ) { return 0; @@ -28,7 +28,7 @@ sub open($) { } sub parse() { - my Xerl::XML::Reader $self = $_[0]; + my Xerl::XML::Reader $self = shift; my $sax_handler = Xerl::XML::SAXHandler->new(); my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler ); |