Greetings All,
I have the following code, from which I attempt to call the module
“Test”
#!/usr/local/bin/perl
###
### Program name: demo.pl
### Created By: Theresa Mullin
require "cgi.lib";
### Include the CGI stuff
use CGI qw(:standard);
### Include the database access stuff
use DBI;
### Push location of user created packages onto @INC array
push(@INC,"/home/tmullin/perl/libs");
use Test;
### Force "no buffering" for output
$| = 1;
### Parse the arguments sent in from the browser
&ReadParse();
### Open log file
open DEMO_LOG, ">/home/tmullin/demo_log"||die "unable to open log file";
print DEMO_LOG "Begin processing...\n";
print DEMO_LOG "array INC: @INC\n";
print DEMO_LOG "Database selected is: $dbase\n";
…Here is module Test:
#!/usr/bin/perl
### Program Name: Test.pm
### Created By: Theresa Mullin
### Date: 5/20/02
package Test;
$dbase = "TEST";
print "And to all a good night \n";
The code appears to execute, and no error messages are generated.
However, the value of $dbase is never written to the log file.
Any advice you can give would be helpful.
Thanks,
T.
Theresa M. Mullin
Programmer/Analyst
Administrative Computing
Northern Essex Community College
100 Elliott Way
Haverhill, MA 01830
(978) 556-3757
[EMAIL PROTECTED]
