Problems with exceptions and packages

[James Smith]

Hey,

I have the following script (obviously much abridged):

+++

use strict;

use Error qw(:try);

#package jms;

{
        try 
        {
                throw Error();
        }
        catch Error with 
        {
                my $e = shift;

                print "Error: Caught Exception occurred...".$e."\n";
        };

}

+++

The 'Error' exception is caught until I uncomment the package
declaration, can anyone tell me why?

Kind regards,

James

_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs