blob: 319f9dbcf9b2efa9a7c178ea8f55130d5f54c15d [file] [log] [blame]
Brad Bishopd7bf8c12018-02-25 22:55:05 -05001The awk pattern was checked *before* the Perl pattern, so the
2perl script with BEGIN{...} would be reported as awk, this patch fixes it.
Patrick Williamsc124f4f2015-09-15 14:41:29 -05003
4Upstream-Status: Backport [debian]
5
6Signed-off-by: Christoph Biedl <debian.axhn@manchmal.in-ulm.de>
7Signed-off-by: Robert Yang <liezhi.yang@windriver.com>
Brad Bishopd7bf8c12018-02-25 22:55:05 -05008
9Rebase on 5.31
10
11Signed-off-by: Fan Xin <fan.xin@jp.fujitsu.com>
Patrick Williamsc124f4f2015-09-15 14:41:29 -050012---
Brad Bishopd7bf8c12018-02-25 22:55:05 -050013 magic/Magdir/commands | 1 +
14 1 file changed, 1 insertion(+)
15
Patrick Williamsc124f4f2015-09-15 14:41:29 -050016diff --git a/magic/Magdir/commands b/magic/Magdir/commands
Brad Bishop316dfdd2018-06-25 12:45:53 -040017index f6ad1c8..f79e7dd 100644
Patrick Williamsc124f4f2015-09-15 14:41:29 -050018--- a/magic/Magdir/commands
19+++ b/magic/Magdir/commands
20@@ -57,6 +57,7 @@
21 0 string/wt #!\ /usr/bin/awk awk script text executable
22 !:mime text/x-awk
Brad Bishop316dfdd2018-06-25 12:45:53 -040023 0 regex/4096 =^[\040\t\f\r\n]{0,100}BEGIN[\040\t\f\r\n]{0,100}[{] awk or perl script text
Patrick Williamsc124f4f2015-09-15 14:41:29 -050024+!:strength - 12
25
26 # AT&T Bell Labs' Plan 9 shell
27 0 string/wt #!\ /bin/rc Plan 9 rc shell script text executable