From fff1e3de7b66709b6ad4ca36ac0c0cb2e04099d3 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 5 Jan 2012 13:28:19 +0100
Subject: Raps2.pm: file_to_hash: Allow whitespace in values

---
 lib/App/Raps2.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/App/Raps2.pm b/lib/App/Raps2.pm
index 348352c..c5d4226 100644
--- a/lib/App/Raps2.pm
+++ b/lib/App/Raps2.pm
@@ -47,7 +47,7 @@ sub file_to_hash {
 	my $ret;
 
 	for my $line ( slurp($file) ) {
-		my ( $key, $value ) = split( qr{ \s+ }x, $line );
+		my ( $key, $value ) = ( $line =~ m{ ^ ([^ ]+) \s+ (.+) $ }x );
 
 		if ( not( $key and $value ) ) {
 			next;
-- 
cgit v1.2.3