:-( It was a stupid bug in my code.  Sorry to send you on a goose chase.

  A for-loop statement in the previous subroutine was constructed like so:
        for (my $i=$item_count+1; $i <=4, $i++) {

So, when it got to the next subroutine, it thought I was including the
"shift @_" in the "my" statement.

I think the reason the message stopped when I took it out of the [! !] was
that was when I was dealing with the database connect problem.  I just
caused the database connect problem to happen before the above syntax
problem. :-(

Sorry again.

Steve Wilder
Matrix Interactive, Inc.
http://www.matrixinteractive.net/
Desk: 248.814.8235
Cell: 248.894.3128
Fax : 248.814.8236

-----Original Message-----
From: Gerald Richter [mailto:[EMAIL PROTECTED]]
Sent: Thursday, February 08, 2001 11:49 PM
To: Steve Wilder
Cc: Embperl
Subject: Re: Scope of a an external package




>
>   Nope.  I had the ; in the code, just didn't put it in the example here.
> This is what the real code looks like:
> [!
>         use DBI;
>         use DBD::mysql;
>         $connect_string = "DBI:mysql:topconlaser";
>         $Persistent::dbc = DBI->connect($connect_string, "*****",
"*****");
>         use CGI;
>         # use cart_support;
> !]
> [-
>         use cart_support;
>         $cgi = new CGI();
>         $cart_id = $cgi->cookie('cart_id');
>         $items_deleted = "";
> -]
>


This really sounds strange. There soundn't be a difference where you use
your module. The only thing that I can imagine at the moment, is if you
include the file, via the Execute import parameter, or if you use it
together with EmbperlObject, do you ? The [! !] will be executed when the
import happens and the [- -] not (that was different in 1.2.x)

Does the cart_support file has it's own package ?

Gerald

P.S. use is a compile time statement, so it is executed at the same time in
both cases and when the code is executed Perl doesn't do anything with the
use (even not check if the module is already there, as I wrote in my last
mail)


-------------------------------------------------------------
Gerald Richter    ecos electronic communication services gmbh
Internetconnect * Webserver/-design/-datenbanken * Consulting

Post:       Tulpenstrasse 5         D-55276 Dienheim b. Mainz
E-Mail:     [EMAIL PROTECTED]         Voice:    +49 6133 925131
WWW:        http://www.ecos.de      Fax:      +49 6133 925152
-------------------------------------------------------------



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
BEGIN:VCARD
VERSION:2.1
N:Wilder;Steve
FN:Steve Wilder
ORG:Matrix Interactive, Inc.
TITLE:President
TEL;WORK;VOICE:(248) 814-8235
TEL;CELL;VOICE:(248) 894-3128
TEL;WORK;FAX:(248) 814-8236
EMAIL;PREF;INTERNET:[EMAIL PROTECTED]
REV:20010203T060545Z
END:VCARD

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to