Jakub Narebski <jnareb@xxxxxxxxx> writes:
>> Hmph, wouldn't it be more straightforward if you dropped the statement
>> modifier? I.e.
>>
>> my ($subtype, $rest) = ($1, $2);
>> $rest = '' unless defined $rest;
>> $type = "text/plain$rest";
>
> Yes, of course.
>
> I don't know why I decided that avoiding rewriting 'text/plain;
> charset=utf-8' case was important.
Just to make sure I understand what you are saying...
my $type = 'text/plain; charset=utf-8';
if ($type =~ m|^text/([a-z]+)\b(.*)$|) {
my ($subtype, $rest) = ($1, $2);
$rest = '' unless defined $rest;
$type = "text/plain$rest";
print "Type is now <$type>\n";
}
does yield "text/plain; charset=utf-8". It does rewrite but rewrite to
exactly the same thing, so...
--
To unsubscribe from this list: send the line "unsubscribe git" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html