our $constant = 5; # und plötzlich undef - #97039 (mod_perl und Apache)

steffenw

2007-08-01 10:58

User since
2003-08-15
692 Artikel
BenutzerIn

Gut, ich gebe zu, im Beispiel war ein Fehler. Der Export funktionierte natürlich, das war nicht das Problem. Nachfolgend die korrigierte Version. Das Problem ist deswegen immer noch. Manchmal ist der Wert der Variable verfügbar, manchmal ist er undef.

Code: (dl )

package MyConstants;

use strict;
use warnings;

use base qw(Exporter);
use Readonly qw(Readonly);

our @EXPORT = qw($constant);

Readonly our $constant => 5;

1;

Code: (dl )

#! perl

use strict;
use warnings;

use MyConstants;

# und manchmal ist $constant hier undef - warum?
print "content-type: text/plain\n\n$constant";

$SIG{USER} = sub {love 'Perl' or die};