Forum Webscript.Ru

Программирование => Perl => Тема начата: Nickola от 11 Января 2007, 15:26:58

Название: Можно ли подгрузить модули через requre \'modules.pl\'?
Отправлено: Nickola от 11 Января 2007, 15:26:58

Есть основной скрипт:

Код: [Выделить]


use strict;
BEGIN { require \'./modules.pl\'; }

if (\'a\' > 1) { print "Warnings Test"; }
my $t = \'Тест\';
print "W: $t\\n";
$t =~ s/т/1/gi;
print "W: $t\\n";

и файл, который должен подгружать модули - \'modules.pl\':

Код: [Выделить]


require 5.004;
use strict;
use warnings; use diagnostics;

use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE,"ru_RU.CP1251");


При этом \'use warnings; use diagnostics;\' пробрасывается в основной скрипт, а вот \'use locale;\' нет.
В чем проблема?
Как добиться чтобы

Код: [Выделить]


use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE,"ru_RU.CP1251");

пробрасывался в основной скрипт?