zap xmlobj string comparison bug

tla · Apr 18, 2012 · 743dba1 · 743dba1
1 parent 0abd670
commit 743dba1
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cpan/Text-TEI-Markup/lib/Text/TEI/Markup.pm b/cpan/Text-TEI-Markup/lib/Text/TEI/Markup.pm
@@ -7,7 +7,7 @@ use Exporter 'import';
 use Scalar::Util;
 use XML::LibXML;
 
-$VERSION = '1.6';
+$VERSION = '1.7';
 @EXPORT_OK = qw( &to_xml &word_tag_wrap );
 
 =head1 NAME
@@ -495,10 +495,10 @@ sub word_tag_wrap {
 		$doc = $parser->parse_string( $xml );
 		$root = $doc->getDocumentElement();
 	} elsif( ref( $xml ) eq 'XML::LibXML::Document' ) {
-		$ret = $xml;
+		$ret = 'xml';
 		$root = $xml->getDocumentElement();
 	} elsif( ref( $xml ) eq 'XML::LibXML::Element' ) {
-		$ret = $xml;
+		$ret = 'xml';
 		$root = $xml;
 	} else {
 		die "Passed argument is neither string, Document, or Element";