Merge pull request Perl#78 from xenu/xenu/setenv

khwilliamson · Jan 7, 2023 · fcea8d5 · fcea8d5
2 parents 87e76cb + 74fd945
commit fcea8d5
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/U/perl/d_setenv.U b/U/perl/d_setenv.U
@@ -0,0 +1,24 @@
+?RCS: $Id$
+?RCS:
+?RCS: Copyright (c) 2005 H.Merijn Brand
+?RCS:
+?RCS: You may distribute under the terms of either the GNU General Public
+?RCS: License or the Artistic License, as specified in the README file.
+?RCS:
+?MAKE:d_setenv: Inlibc
+?MAKE:	-pick add $@ %<
+?S:d_setenv:
+?S:	This variable conditionally defines the HAS_SETENV symbol, which
+?S:	indicates to the C program that the setenv routine is available.
+?S:.
+?C:HAS_SETENV:
+?C:	This symbol, if defined, indicates that the setenv routine is
+?C:	available for use.
+?C:.
+?H:#$d_setenv HAS_SETENV		/**/
+?H:.
+?LINT:set d_setenv
+: see if setenv exists
+set setenv d_setenv
+eval $inlibc
+