… | … | ||
---|---|---|---|
529 | while ( | 529 | while ( |
530 | m{ | 530 | m{ |
531 | \G\s* | 531 | \G\s* |
532 | (?: | 532 | (?: |
533 | expires \s*=\s* ([A-Z][a-z][a-z]+,\ [^,;]+) | 533 | expires \s*=\s* ([A-Z][a-z][a-z]+,\ [^,;]+) |
534 | | ([^=;,[:space:]]+) (?: \s*=\s* (?: "((?:[^\\"]+|\\.)*)" | ([^=;,[:space:]]*) ) )? | 534 | | ([^=;,[:space:]]+) (?: \s*=\s* (?: "((?:[^\\"]+|\\.)*)" | ([^;,[:space:]]*) ) )? |
535 | ) | 535 | ) |
536 | }gcxsi | 536 | }gcxsi |
537 | ) { | 537 | ) { |
538 | my $name = $2; | 538 | my $name = $2; |
539 | my $value = $4; | 539 | my $value = $4; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |