ParseDateTag 0.02

3 files changed, 8 insertions, 9 deletions

diff --git a/DateTime/Format/ISO8601/ParseDateTag.pm b/DateTime/Format/ISO8601/ParseDateTag.pm
index 7d8d7f3..383374a 100644
--- a/DateTime/Format/ISO8601/ParseDateTag.pm
+++ b/DateTime/Format/ISO8601/ParseDateTag.pm
@@ -4,7 +4,7 @@ use strict;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 use warnings;
 use DateTime::Format::ISO8601;
@@ -71,10 +71,10 @@ sub parse {
     my $tmp2 = pretty_print_date($count1,$iso8601->parse_datetime($date1));
     if ( $ed !~ /^$/i ) {
       $ed = ucfirst($ed);
-      print "$ed between $tmp1 and $tmp2\n";
+      return "$ed between $tmp1 and $tmp2";
     }
     else {
-      print "Released between $tmp1 and $tmp2\n";
+      return "Released between $tmp1 and $tmp2";
     };
   }
   elsif ( $_[0] =~ /^(([0-9]|-|T|:)+)(?:\s*(.*))$/i ) {
@@ -87,14 +87,13 @@ sub parse {
     $tmp = $tmp . pretty_print_date($count,$iso8601->parse_datetime($date));
     if ( $ed !~ /^$/i ) {
       $ed = ucfirst($ed);
-      print "$ed $tmp\n";
+      return "$ed $tmp";
     }
     else {
-      print "Released $tmp\n";
+      return "Released $tmp";
     };
   };
 }
 
-
 1;
 __END__
diff --git a/flacinfo b/flacinfo
index 68820b3..24c19d0 100644
--- a/flacinfo
+++ b/flacinfo
@@ -154,12 +154,12 @@ default("PRODUCER", "Producer");
 if (defined $tags->{ "DATE" }) {
   my $dateparser = DateTime::Format::ISO8601::ParseDateTag->new;
   if ( ref($tags->{ "DATE" }) ne 'ARRAY' ) {
-    $dateparser->parse($tags->{ "DATE" });
+    print $dateparser->parse($tags->{ "DATE" }) . "\n";
   }
   else {
     my $array = $tags->{ "DATE" };
     foreach my $var (@$array) {
-      $dateparser->parse($var);
+      print $dateparser->parse($var) . "\n";
     };
   };
 }
diff --git a/test/parse-date-test.pl b/test/parse-date-test.pl
index 48b20f3..efc9996 100644
--- a/test/parse-date-test.pl
+++ b/test/parse-date-test.pl
@@ -26,7 +26,7 @@ my @test = (
 foreach my $t (@test) {
   print $t . " ### ";
   try {
-    $parser->parse($t); 
+    print $parser->parse($t) . "\n"; 
   }
   catch Error with {
     print "Error: $@"