--- Finance-QuoteHist-1.12/lib/Finance/QuoteHist/Yahoo.pm-	2007-07-04 10:55:12.000000000 +0400

+++ Finance-QuoteHist-1.12/lib/Finance/QuoteHist/Yahoo.pm	2010-04-28 00:10:08.283885423 +0400

@@ -112,10 +112,10 @@ sub splits {

       my($split_line) = grep(defined && /split/i, $table->hrow);

       $split_line =~ s/^\s*splits:?\s*//i;

       my @rows;

-      foreach (grep(/\w+/, split(/\s*,\s+/, $split_line))) {

+      foreach (grep(/\w+/, split(/(?<=\])\s*,\s+/, $split_line))) {

         s/\s+$//;

         next if /none/i;

-        my($date, $post, $pre) = /^(\S+)\D*(\d+):(\d+)/m;

+        my($date, $post, $pre) = /^(.+?)\s*\[(\d+):(\d+)\]/m;

         $date = ParseDate($date)

           or croak "Problem parsing date string '$date'\n";

         push(@rows, [$date, $post, $pre]);