/usr/lib/perl5/Tk/pTk/tclMath.h is in perl-tk 1:804.031-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | /*
* tclMath.h --
*
* This file is necessary because of Metrowerks CodeWarrior Pro 1
* on the Macintosh. With 8-byte doubles turned on, the definitions of
* sin, cos, acos, etc., are screwed up. They are fine as long as
* they are used as function calls, but if the function pointers
* are passed around and used, they will crash hard on the 68K.
*
* Copyright (c) 1997 Sun Microsystems, Inc.
*
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
* RCS: @(#) $Id: tclMath.h,v 1.2 1998/09/14 18:40:01 stanton Exp $
*/
#ifndef _TCLMATH
#define _TCLMATH
#if defined(MAC_TCL)
# include "tclMacMath.h"
#else
# include <math.h>
#endif
#endif /* _TCLMATH */
|