--- 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]);