|
|
@ -103,7 +103,7 @@ sub parse { |
|
|
|
$self->{headers}->{$key} = $header; |
|
|
|
$self->{headers}->{$key} = $header; |
|
|
|
if ($key eq 'scripttype') { |
|
|
|
if ($key eq 'scripttype') { |
|
|
|
my $type = index($header->{value}, "+") >= 0 ? 'ass' : 'ssa'; |
|
|
|
my $type = index($header->{value}, "+") >= 0 ? 'ass' : 'ssa'; |
|
|
|
$self->log(info => "File recognized as '$type' type from header at line $linenum"); |
|
|
|
$self->log(debug => "File recognized as '$type' type from header at line $linenum"); |
|
|
|
$self->{type} = $type; |
|
|
|
$self->{type} = $type; |
|
|
|
} |
|
|
|
} |
|
|
|
next; |
|
|
|
next; |
|
|
|