From 9aad2c0ee9bd9366e680b5b7aafa650d1fd2663d Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Wed, 2 Aug 2000 15:02:46 +0000 Subject: [PATCH] The new setproctitle() feature is available only in bleeding edge FreeBSD. From Paul Saab. p4raw-id: //depot/perl@6492 --- mg.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/mg.c b/mg.c index 3cf8f59..884e0fa 100644 --- a/mg.c +++ b/mg.c @@ -2005,13 +2005,13 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) * the setproctitle() routine to manipulate that. */ { s = SvPV(sv, len); -# if __FreeBSD_version >= 400000 - /* The - removes the "perl: " prefix, +# if __FreeBSD_version >= 410001 + /* The leading "-" removes the "perl: " prefix, * but not the "(perl) suffix from the ps(1) * output, because that's what ps(1) shows if the * argv[] is modified. */ setproctitle("-%s", s, len + 1); -# else /* old FreeBSDs, NetBSD, OpenBSD */ +# else /* old FreeBSDs, NetBSD, OpenBSD, anyBSD */ /* This doesn't really work if you assume that * $0 = 'foobar'; will wipe out 'perl' from the $0 * because in ps(1) output the result will be like -- 2.7.4