Hi, I am trying to load a simple shared object into perl, based on this link:

http://www.lemoda.net/xs/xs-intro/geometry.html

This is my header file (hypotenuse.h): 

double hypotenuse (double val_x, double val_y);

[download]
This is my source file (hypotenuse.c): 
#include "hypotenuse.h"
#include <math.h>

double hypotenuse (double val_x, double val_y)
{
    return sqrt (val_x*val_x + val_y*val_Y);
}

[download]
this is my XS (Geometry.xs): 
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include "hypotenuse.h"
MODULE = Geometry        PACKAGE = Geometry        

PROTOTYPES: ENABLE

double
hypotenuse(val_x, val_y)
    double  val_x
    double  val_y

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

#########################

# change 'tests => 1' to 'tests => last_test_to_print';

use Test::More tests => 1;
BEGIN { use_ok('Geometry') };
#is (Geometry::hypotenuse (3, 4), 5);
#########################

# 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.

[download]
The steps I took:

1. Run h2xs -A -n Geometry (created Geometry folder, and needed base files)

2. place all files above in this folder (the Geometry.t is auto generated, and so is Geometry.xs, which I edit)

3. Run "perl Makefile.PL". completed successfully

Here is the output: 

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

[download]
4. Run "make". completed successfully

Here is the output: 

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
Running Mkbootstrap for Geometry ()
chmod 644 Geometry.bs
rm -f blib/arch/auto/Geometry/Geometry.so
gcc  -shared -O2 -g -pipe -Wall -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -
+fstack-protector --param=ssp-buffer-size=4 -m64 -mtune=generic Geomet
+ry.o  -o blib/arch/auto/Geometry/Geometry.so     \
             \
      
chmod 755 blib/arch/auto/Geometry/Geometry.so
cp Geometry.bs blib/arch/auto/Geometry/Geometry.bs
chmod 644 blib/arch/auto/Geometry/Geometry.bs
Manifying blib/man3/Geometry.3pm

[download]
5. Run "make test" (to execute file Geometry/t/Geometry.t)

NOW IT FAILS ... 

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 
#   Failed test 'use Geometry;'
#   at t/Geometry.t line 9.
#     Tried to use 'Geometry'.
#     Error:  Can't load '/gpfs/haifa-p4/08/tm/team/hagaih/geometry/Ge
+ometry/blib/arch/auto/Geometry/Geometry.so' for module Geometry: /gpf
+s/haifa-p4/08/tm/team/hagaih/geometry/Geometry/blib/arch/auto/Geometr
+y/Geometry.so: undefined symbol: hypotenuse at /usr/lib64/perl5/DynaL
+oader.pm line 200.
#  at (eval 4) line 2
# Compilation failed in require at (eval 4) line 2.
# BEGIN failed--compilation aborted at (eval 4) line 2.
# Looks like you failed 1 test of 1.
t/Geometry.t .. Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/1 subtests 

Test Summary Report
-------------------
t/Geometry.t (Wstat: 256 Tests: 1 Failed: 1)
  Failed test:  1
  Non-zero exit status: 1
Files=1, Tests=1,  0 wallclock secs ( 0.01 usr  0.02 sys +  0.01 cusr 
+ 0.00 csys =  0.04 CPU)
Result: FAIL
Failed 1/1 test programs. 1/1 subtests failed.
make: *** [test_dynamic] Error 1

[download]
I made sure the file exists: 
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*

[download]
What am I doing wrong ?

In reply to loading C shared object with perl by kopolov

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.