Commit 576b0c66 authored by Andreas Kusalananda Kähäri's avatar Andreas Kusalananda Kähäri
Browse files

More useful messages in a couple of the throws()'s.

parent da2ebf35
...@@ -196,7 +196,7 @@ sub start { ...@@ -196,7 +196,7 @@ sub start {
my ( $self, $tag ) = @_; my ( $self, $tag ) = @_;
if ( !defined($tag) ) { if ( !defined($tag) ) {
$self->throw("Must start on tag"); $self->throw("No tag, can't start.");
} }
if ( !defined( $self->_tags()->{$tag} ) ) { if ( !defined( $self->_tags()->{$tag} ) ) {
...@@ -222,11 +222,12 @@ sub end { ...@@ -222,11 +222,12 @@ sub end {
my ( $self, $tag ) = @_; my ( $self, $tag ) = @_;
if ( !defined($tag) ) { if ( !defined($tag) ) {
$self->throw("Must end on tag"); $self->throw("No tag, can't end.");
} }
if ( !defined( $self->_tags()->{$tag} ) ) { if ( !defined( $self->_tags()->{$tag} ) ) {
$self->throw("Ending with a nonexistant tag"); $self->throw(
sprintf( "Ending with a nonexistant tag '%s'", $tag ) );
} }
$self->_tags->{$tag}->pop_stack(); $self->_tags->{$tag}->pop_stack();
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment