while (<STDIN>) {
chomp;
- /^X-Spec: ([\+a-zA-Z0-9_\-]+\.spec)/i and $spec = $1;
+ /^X-Spec: ([\+a-zA-Z0-9_\-\.]+\.spec)/i and $spec = $1;
/^X-Branch: ([a-zA-Z0-9_\-]+)/i and $branch = $1;
/^X-Login: ([a-zA-Z0-9_]+)/i and $from = $1;
/^X-Flags: ([a-zA-Z0-9\-_ ]+)/i and $flags = $1;