Patrick Williams | c124f4f | 2015-09-15 14:41:29 -0500 | [diff] [blame] | 1 | The awk pattern was checked *before* the Perl pattern, so the perl |
| 2 | script with BEGIN{...} would be reported as awk, this patch fixes it. |
| 3 | |
| 4 | Upstream-Status: Backport [debian] |
| 5 | |
| 6 | Signed-off-by: Christoph Biedl <debian.axhn@manchmal.in-ulm.de> |
| 7 | Signed-off-by: Robert Yang <liezhi.yang@windriver.com> |
| 8 | --- |
| 9 | diff --git a/magic/Magdir/commands b/magic/Magdir/commands |
| 10 | --- a/magic/Magdir/commands |
| 11 | +++ b/magic/Magdir/commands |
| 12 | @@ -57,6 +57,7 @@ |
| 13 | 0 string/wt #!\ /usr/bin/awk awk script text executable |
| 14 | !:mime text/x-awk |
| 15 | 0 regex/4096 =^\\s{0,100}BEGIN\\s{0,100}[{] awk or perl script text |
| 16 | +!:strength - 12 |
| 17 | |
| 18 | # AT&T Bell Labs' Plan 9 shell |
| 19 | 0 string/wt #!\ /bin/rc Plan 9 rc shell script text executable |