Commit 0ef60982 authored by Thomas Sibley's avatar Thomas Sibley
Browse files

Stop parsing headers when we stop finding them

Fixes a regression introduced by 33d02398 which caused t/create.t to
start failing (on line 88).
parent 27e32c89
......@@ -222,7 +222,8 @@ sub GetCurrentUser {
foreach my $line (@content) {
next if $line =~ /^\s*$/ && ! $found_pseudoheaders;
last if $line !~ /^(?:(\S+(?:{.*})?)\s*?:\s*?(.*)\s*?|)$/;
next unless defined $1;
last if not defined $1 and $found_pseudoheaders;
next if not defined $1;
$found_pseudoheaders = 1;
push( @items, $1 => $2 );
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment