Kristofer Wolff wrote, on Monday, February 12, 2001 06:38
: I have a test script:
: -------------------------
: use ven::base_hand;
: print open_base();
: -------------------------
:
: And my Module:
: -------------------------
: package ven::base_hand;
: $VERSION = '1.00';
: require Exporter;
: @EXPORT_OK=qw(open_base close_base);
: -------------------------
:
: And this is my output:
: -------------------------
: C:\>C:\Xitami\cgi-bin\Sybase\test.pl
: *
: Undefined subroutine &main::open_base called at
: C:\Xitami\cgi-bin\Sybase\test.pl
: -------------------------
:
: why is open_base undefinded ? must I do somthing with new() ?
>From _Perl_in_a_Nutshell_ (and therefore probably straight from
the perldoc):
"@EXPORT is a list of symbols to export by default, @EXPORT_OK
is a list of symbols to export on request, ..."
Try "use ven::base_hand qw(open_base);" in your test program,
or use @EXPORT instead of @EXPORT_OK in your module.
Joe
==============================================================
Joseph P. Discenza, Sr. Programmer/Analyst
mailto:[EMAIL PROTECTED]
Carleton Inc. http://www.carletoninc.com
219.243.6040 ext. 300 fax: 219.243.6060
Providing Financial Solutions and Compliance for over 30 Years
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
