Allow for the possibility of empty values

briandfoy · Jun 16, 2023 · 7fa779b · 7fa779b
1 parent 15b0011
commit 7fa779b
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/util/extract_metadata b/util/extract_metadata
@@ -16,14 +16,13 @@ foreach my $program ( @programs ) {
 
 	my( $extracted ) = $data =~ m/
 		^=begin \s+ metadata \s+
-			(.+\S)
-			\s+
+			(.+)
 		^=end \s+ metadata
 		/xms;
 
 	my %hash;
 	foreach my $line ( split /\R/, $extracted ) {
-		my( $field, $value ) = split /:\s+/, $line, 2;
+		my( $field, $value ) = split /:\s*/, $line, 2;
 		if( exists $hash{$field} and ! ref $hash{$field} ) {
 			$hash{$field} = [ $hash{$field}, $value ];
 			}