require() related:#!/usr/bin/perl use strict; eval 'use constant NAME_MAXLENGTH => 30' unless(defined(&NAME_MAXLENGT +H)); eval 'use constant LINK_MAXLENGTH => 256' unless(defined(&LINK_MAXLENG +TH)); eval 'use constant SUBJECT_MAXLENGTH => 256' unless(defined(&SUBJECT_M +AXLENGTH)); eval 'use constant POST_MAXLENGTH => 8192' unless(defined(&POST_MAXLEN +GTH)); 1;
Code snippet where the first error occurs (if it's commented, the next constant gets error'd):my $dir = dirname($ENV{"SCRIPT_FILENAME"})."/"; require("$dir.config_defaults.pl");
The error message:&error("Subject is too long/empty.") if (length $$subject > &SUBJECT_M +AXLENGTH || ($$subject eq "" && $mode eq "post"));
[error] -e: Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::[v +ery long fullpath]post_2epl::SUBJECT_MAXLENGTH called at (eval 50) li +ne 195.\n
In reply to Re^4: Constants imported from other perl scripts doesn't want to exist :(
by OnionKnight
in thread Constants imported from other perl scripts doesn't want to exist :(
by OnionKnight
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |