Select Code to Download

double hypotenuse (double val_x, double val_y);

#include "hypotenuse.h"
#include <math.h>
...
{
    return sqrt (val_x*val_x + val_y*val_Y);
}

#include "EXTERN.h"
#include "perl.h"
...
hypotenuse(val_x, val_y)
    double  val_x
    double  val_y

# Before `make install' is performed this script should be runnable wi
+th
# `make test'. After `make install' it should work as `perl Geometry.t
+'
...

# Insert your test code below, the Test::More module is use()ed here s
+o read
# its man page ( perldoc Test::More ) for help writing this test scrip
+t.

Checking if your kit is complete...
Looks good
Writing Makefile for Geometry

cp lib/Geometry.pm blib/lib/Geometry.pm
gcc -c  -I. -D_REENTRANT -D_GNU_SOURCE -fno-strict-aliasing -pipe -fst
+ack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET
+_BITS=64 -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fst
+ack-protector --param=ssp-buffer-size=4 -m64 -mtune=generic   -DVERSI
+ON=\"0.01\" -DXS_VERSION=\"0.01\" -fPIC "-I/usr/lib64/perl5/CORE"   G
+eometry.c
...
cp Geometry.bs blib/arch/auto/Geometry/Geometry.bs
chmod 644 blib/arch/auto/Geometry/Geometry.bs
Manifying blib/man3/Geometry.3pm

PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_h
+arness(0, 'blib/lib', 'blib/arch')" t/*.t
t/Geometry.t .. 1/1 
...
Result: FAIL
Failed 1/1 test programs. 1/1 subtests failed.
make: *** [test_dynamic] Error 1

hagaih@lnx-tm2: geometry/Geometry/t 84 >  ls /gpfs/haifa-p4/08/tm/team
+/hagaih/geometry/Geometry/blib/arch/auto/Geometry/Geometry.so
/gpfs/haifa-p4/08/tm/team/hagaih/geometry/Geometry/blib/arch/auto/Geom
+etry/Geometry.so*