| … | … | ||
|---|---|---|---|
| 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 |