$mwsdbh is not itintialized. As the problem occurs on upload I assume you have code like:

my $mwsdbh = DBI->connect(blah) or do_not_warn_me_that_the_connect_fai
+led_and_thus_mwsdbh_is_not_initialized()
[download]

If the code works locally then your DBI connect is failing and you get no useful logging because you are not checking the return value....

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print

As the message says:

$mwsdbh must not be visible from within the scope of your subroutine, or not initialized by the time your subroutine is invoked. Another option is that $mwsdbh is not the correct spelling.

Good luck...

The undefined value is likely to be $mwsdbh. Did you recode your connection string and user data to reflect the new server? Your code excerpt doesn't show that essential part. In fact, how does your sub know what $mwsdbh is? How is it scoped? Do you have a closure?

Always check for success when you go to the system.

After Compline,
Zaxo

So, you're using mysql on your own redhat box, with your own set of tables, and you have a particular way of connecting to that database in your perl script.

Are you sure that mysql is running on your ISP host? If so, do you know for sure that you have the same database setup there as you have on your local box? (Same connection parameters, same tables/schema?)

(update: or am I clueless about something here... Is it the case that your script, once it's uploaded to the ISP host, is supposed to be connecting back to your own mysql server on your redhat box? If so, as tachyon indicated, it's just a matter of debugging the "connect()" call. It's likely that you need to alter one or more of the parameters in that call to make the connection work from the ISP host.)

On an entirely different tack: are you sure you need to declare your variables as "local"?
At first glance, "my" seems more appropriate.

Also your die statement following the execute statement should really say "while executing SQL statement".

Of course this does not help you with your problem at all.

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

I've played around with "strict" and "my", and funny enough, it doesn't fix the problem. I have found something else now... If I do not use procedures, ie. I do my mySQL connection, executing the SQL statement and disconnecting it all in one piece of code, it works fine, however, I'm using procedures to do that. I have a connection procedure, a disconnection procedure, and a SQL execution procedure. It looks like my $mwsdbh variable I receive from my connection is not a global variable, although it should be. When it comes to the execution of SQL statement procedure, the script dies.

Have you guys seen this behaviour before? I've tried "returning" the variable, but that doesn't work.

Thanks!

#!/massyn.pl The more I learn, the more I realize I don't know. Albert Einstein 1879-1955

Did you try sending the $mwsdbh variable as a parameter to the subroutines?
That way it should be known and accessible in the subroutines.

I'm still confused about the use you make of the "local" keyword for the declaration of your variables inside the subroutine. If you have a moment to spare, could you explain it?

CountZero

"If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

I would also take the advice to 'use strict', and start using my instead of local (unless you're still using perl 4, and then I'd say upgrade if at all possible).

Here's my connect and disconnect procedures.. the %MWSPARAM hash gets populated with the necessary database information.

sub mwsconnect
{

    use DBI;

    local $server = $MWSPARAM{server};
    local $db = $MWSPARAM{db};
    local $user = $MWSPARAM{user};
    local $passwd = $MWSPARAM{passwd};


    #==========================================
    #make the connection
    #==========================================
        $mwsdbh = DBI->connect("DBI:mysqlPP:database=$db;host=$server"
+, $user, $passwd) or &mwserror("DB Error: " . $DBI::errstr);
}

sub mwsdisconnect
{
    $mwsdbh->disconnect();
}
[download]

...

Thanks!

#!/massyn.pl The more I learn, the more I realize I don't know. Albert Einstein 1879-1955

#!/fellow/monks.pl

I believe I found the problem... It's a bug in perl...

Thanks!

#!/massyn.pl The more I learn, the more I realize I don't know. Albert Einstein 1879-1955