On Oct 4, 2007, at 6:57 PM, Michael Barto wrote:
> I am working with an old Perl Library (program module) written in
> Perl4 and Perl 5 depending who was "hacking the code". My program
> that calls it, uses -w and strict and has identified many syntax
> errors and so forth in the old library which I fixed. My problem is
> that this library needs two variables passed as globals to it to
> use in one of the subroutines, One of them is the $dbh variable
> created when the database is open. Another is a hash. Both these
> variables were initiated at the Main top most level of the program
> with "my". Unfortunately, this causes an error and the libraries
> does not see the global.
My() isn't package scoped, it's file scoped.
Our() is package scoped, so add a package declaration at the top of
each of your files, and in each of them declare $dbh with our.
Basically, like this, at the top of each file that uses the shared
variable:
package SuperNifty;
our $dbh;
Alternatively, you could define $dbh in a module, and include it in
the module's @[EMAIL PROTECTED]
or @[EMAIL PROTECTED]
so that an alias to it is
ex****ted into the module user's namespace.
sherm--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
|
