Re^3: Exporting scalars from a module

How can I enable use strict and not use my to declare the variables? (The version of perl we use does not support the our keyword):

package ExitCode;


my @varsToExport = qw(%exitCodes $EXIT_SUCCESS $EXIT_GENERAL_FAILURE $
+EXIT_CHANGELIST_CONSUMED $EXIT_FUTURE_CHANGELIST);

require Exporter;
use vars (qw(@ISA @EXPORT), @varsToExport);
@ISA = qw(Exporter);
@EXPORT = qw(@varsToExport);

%exitCodes;


# Define exit codes
$EXIT_SUCCESS = 0;
[download]

Comment on Re^3: Exporting scalars from a module Download Code

Replies are listed 'Best First'.
Re^4: Exporting scalars from a module by Tanktalus (Canon) on Mar 19, 2005 at 02:55 UTC
You need to put your @varsToExport in a BEGIN block. `my @varsToExport; BEGIN { @varsToExport = qw(...); } use vars @varsToExport; @EXPORT = qw(@varsToExport);` [download] Or you can upgrade your perl. :-)	[reply] [d/l]