Skip to content

Commit 4a026b4

Browse files
committed
Accommodate miniperl on FreeBSD
For GH 18570
1 parent 2a64b18 commit 4a026b4

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

t/op/magic.t

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -828,7 +828,7 @@ SKIP: {
828828
# FreeBSD cannot get rid of both the leading "perl :"
829829
# and the trailing " (perl)": some FreeBSD versions
830830
# can get rid of the first one.
831-
? qr/^(?:perl: )?x(?: \(perl\))?$/
831+
? qr/^(?:(?:mini)?perl: )?x(?: \((?:mini)?perl\))?$/
832832
# In Linux 2.4 we would get an exact match ($ps eq 'x') but
833833
# in Linux 2.2 there seems to be something funny going on:
834834
# it seems as if the original length of the argv[] would

0 commit comments

Comments
 (0)