perl-File-MMagic/SOURCES/File-MMagic-1.30-rt109673.patch
2021-09-10 00:23:34 +00:00

21 lines
599 B
Diff

--- MMagic.pm
+++ MMagic.pm
@@ -929,7 +929,7 @@ sub magicMatch {
}
else {
# $$p_desc .= ' ' . sprintf($message,$data) if $message;
- $$p_desc .= sprintf($message,$data) if $message;
+ $$p_desc .= index($message, '%') >= 0 ? sprintf($message, $data) : $message if $message;
}
my $subtest;
@@ -1094,7 +1094,7 @@ sub magicMatchStr {
}
else {
# $$p_desc .= ' ' . sprintf($message,$data) if $message;
- $$p_desc .= sprintf($message,$data) if $message;
+ $$p_desc .= index($message, '%') >= 0 ? sprintf($message, $data) : $message if $message;
}
my $subtest;