This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add probe for strnlen 23/head
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Sat, 14 Oct 2017 14:05:21 +0000 (16:05 +0200)
committerDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Sat, 14 Oct 2017 14:05:21 +0000 (16:05 +0200)
U/perl/d_strnlen.U [new file with mode: 0644]

diff --git a/U/perl/d_strnlen.U b/U/perl/d_strnlen.U
new file mode 100644 (file)
index 0000000..b03bfd6
--- /dev/null
@@ -0,0 +1,24 @@
+?RCS: $Id$
+?RCS:
+?RCS: Copyright (c) 2004 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_strnlen: Inlibc
+?MAKE: -pick add $@ %<
+?S:d_strnlen:
+?S:    This variable conditionally defines the HAS_STRNLEN symbol, which
+?S:    indicates to the C program that the strnlen () routine is available.
+?S:.
+?C:HAS_STRNLEN:
+?C:    This symbol, if defined, indicates that the strnlen () routine is
+?C:    available to check the length of a string up to a maximum.
+?C:.
+?H:#$d_strnlen HAS_STRNLEN             /**/
+?H:.
+?LINT:set d_strnlen
+: see if strnlen exists
+set strnlen d_strnlen
+eval $inlibc
+