فهرست منبع

The unconstrained \s is just a bit too unconstrained -- only allow space or tab

Zachary Kotlarek 13 سال پیش
والد
کامیت
e43928dab9
1فایلهای تغییر یافته به همراه5 افزوده شده و 5 حذف شده
  1. 5 5
      dmx/rifftrax.pl

+ 5 - 5
dmx/rifftrax.pl

@@ -391,17 +391,17 @@ sub parseConfig($$) {
 
 
 			# Parse out the data we care about
 			# Parse out the data we care about
 			my %data = ();
 			my %data = ();
-			if ($text =~ /^\s*Name:\s*(\S.*\S)\s*$/mi) {
+			if ($text =~ /^\s*Name:[ \t]*(\S.*\S)\s*$/mi) {
 				$data{'name'} = $1;
 				$data{'name'} = $1;
 			}
 			}
-			if ($text =~ /^\s*Year:\s*(\d{4})\s*$/mi) {
+			if ($text =~ /^\s*Year:[ \t]*(\d{4})\s*$/mi) {
 				$data{'year'} = $1;
 				$data{'year'} = $1;
 			}
 			}
-			if ($text =~ /^\s*File:\s*(\S.*\S)\s*$/mi) {
+			if ($text =~ /^\s*File:[ \t]*(\S.*\S)\s*$/mi) {
 				$data{'file'} = $1;
 				$data{'file'} = $1;
 			}
 			}
-			if ($text =~ /^\s*Offset:\s*([\-\+]?\d+(?:\.\d+)?)\s*$/mi) {
-				$data{'offset'} = $1;
+			if ($text =~ /^\s*Offset:[ \t]*([\-\+]?\d+(?:\.\d+)?)\s*$/mi) {
+				$data{'offset'} = $1 * 1.0;
 			}
 			}
 
 
 			# Ensure we have a valid record
 			# Ensure we have a valid record