Автор Тема: FS + perl + Sys-Filesystem - работает под фрей?  (Прочитано 4941 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Skif

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 187
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Трямки всем.
Собственно сабж. _Необходим для скриптов по состоянию FS модуль. Нашел что подойдет для перла Sys::Filesystem на search.cpan.org. но воспользоваться не получается
Цитировать
perl Makefile.PL
make

проходит без проблем, при выполнении make test :
Цитировать
[root@k.com.ua] /usr/local/script/FS/Sys-Filesystem-1.18/:make test
PERL_DL_NONLAZY=1 /usr/local/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, \'blib/lib\', \'blib/arch\')" t/*.t
t/01test....Use of uninitialized value in hash element at ../lib/Sys/Filesystem/Freebsd.pm line 44, line 17.
.......................................................................
Use of uninitialized value in hash element at ../lib/Sys/Filesystem/Freebsd.pm line 49, line 17.
Use of uninitialized value in hash element at ../lib/Sys/Filesystem/Freebsd.pm line 49, line 17.
Unable to open mtab file (/etc/mtab)
_at (eval 9) line 1
_at lib/Sys/Filesystem.pm line 77
_ _ _ _ Sys::Filesystem::new(\'Sys::Filesystem\') called at lib/Sys/Filesystem.pm line 120
_ _ _ _ Sys::Filesystem::filesystems(\'device\', \'/dev/ad0s1a\') called at t/01test.t line 30
# Looks like you failed 1 tests of 62.
t/01test....dubious
_ _ _ _ Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 2
_ _ _ _ Failed 1/62 tests, 98.39% okay
Failed Test Stat Wstat Total Fail _Failed _List of Failed
-------------------------------------------------------------------------------
t/01test.t _ _ 1 _ 256 _ _62 _ _1 _ 1.61% _2
Failed 1/1 test scripts, 0.00% okay. 1/62 subtests failed, 98.39% okay.
*** Error code 2

Stop in /usr/local/script/FS/Sys-Filesystem-1.18.
Валиться короче. Ок. Ставлю linux_base, делаю mtab из fstab, повторяю make test, предварительно убедившись, что linux.ko загружен:
Цитировать
[root@k.com.ua] /usr/local/script/FS/Sys-Filesystem-1.18/:kldstat -v | grep
linux
_4 _ _1 0xc2845000 17000 _ _linux.ko
_ _ _ _ _ _ _ _ 165 linuxelf
_ _ _ _ _ _ _ _ 166 linuxaout

Цитировать
[root@k.com.ua] /usr/local/script/FS/Sys-Filesystem-1.18/:make test
PERL_DL_NONLAZY=1 /usr/local/bin/perl "-MExtUtils::Command::MM" "-e"
"test_harness(0, \'blib/lib\', \'blib/arch\')" t/*.t
t/01test....Use of uninitialized value in hash element at ../lib/Sys/Filesystem/Freebsd.pm line 44, line 17.
Use of uninitialized value in hash element at ../lib/Sys/Filesystem/Freebsd.pm line 45, line 17.
.......................................................................
Use of uninitialized value in hash element at ../lib/Sys/Filesystem/Freebsd.pm line 49, line 17.
Use of uninitialized value in hash element at ../lib/Sys/Filesystem/Freebsd.pm line 49, line 17.
Unable to open mtab file (/etc/mtab)
_at (eval 9) line 1
_at lib/Sys/Filesystem.pm line 77
_ _ _ _ Sys::Filesystem::new(\'Sys::Filesystem\') called at lib/Sys/Filesystem.pm line 120
_ _ _ _ Sys::Filesystem::filesystems(\'device\', \'/dev/ad0s1a\') called at t/01test.t line 30
# Looks like you failed 1 tests of 62.
t/01test....dubious
_ _ _ _ Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 2
_ _ _ _ Failed 1/62 tests, 98.39% okay
Failed Test Stat Wstat Total Fail _Failed _List of Failed
-------------------------------------------------------------------------------
t/01test.t _ _ 1 _ 256 _ _62 _ _1 _ 1.61% _2
Failed 1/1 test scripts, 0.00% okay. 1/62 subtests failed, 98.39% okay.
*** Error code 2

Stop in /usr/local/script/FS/Sys-Filesystem-1.18.
Если просто сделать make install то модуль ставиться, только мне с этого не холодно и не жарко - он не работает - вываливается с ошибками :( Кто ставил этот модуль, или может посоветовать альтернативный для perl? Оч надо.
варианты типа
Цитировать
system "df";
system "du";
или
Цитировать
$p=`df`;
$p=`du`;
не предлагать - не подходят по идиологическим мотивам.
Всё будет хорошо - я договорился!

Оффлайн arto

  • Ветеран
  • *****
  • Сообщений: 699
  • +0/-0
  • 2
    • Просмотр профиля
FS + perl + Sys-Filesystem - работает под фрей?
« Ответ #1 : 23 Марта 2006, 17:13:20 »
неправильно обрабатывает пустые строки в файлах.
либо пропатчте Sys/Filesystem/Freebsd.pm, либо поудаляйте пустые строки в /etc/fstab и других подобных файлах.
или отпишите автору, с приложением файлов.

Оффлайн cr4ck3r

  • Фанат Perl
  • Постоялец
  • ***
  • Сообщений: 146
  • +0/-0
  • 2
    • Просмотр профиля
    • http://perlmonks.org.ru
FS + perl + Sys-Filesystem - работает под фрей?
« Ответ #2 : 23 Марта 2006, 17:50:02 »
<---->
Ворота в perl - perlmonks.org.ru

Оффлайн Skif

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 187
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
FS + perl + Sys-Filesystem - работает под фрей?
« Ответ #3 : 23 Марта 2006, 18:11:07 »
Спасибо, разобрался. Нельзя использовать в файле коментарии и пустые строки.
Всё будет хорошо - я договорился!

Оффлайн arto

  • Ветеран
  • *****
  • Сообщений: 699
  • +0/-0
  • 2
    • Просмотр профиля
FS + perl + Sys-Filesystem - работает под фрей?
« Ответ #4 : 23 Марта 2006, 19:30:26 »
комментарии можно

Оффлайн Skif

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 187
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
FS + perl + Sys-Filesystem - работает под фрей?
« Ответ #5 : 24 Марта 2006, 00:41:55 »
Увы, увы... У меня модуль прошел тесты, проинсталился и нормально вернул результаты, только тогда, когда из mtab убрал символы коментариев.
Всё будет хорошо - я договорился!

Оффлайн arto

  • Ветеран
  • *****
  • Сообщений: 699
  • +0/-0
  • 2
    • Просмотр профиля
FS + perl + Sys-Filesystem - работает под фрей?
« Ответ #6 : 24 Марта 2006, 09:13:24 »
странно,

        if ($mtab->open($args{mtab})) {
                while (<$mtab>) {
                        next if /^\\s*\\#/;
                        ...

Оффлайн Skif

  • Фанат форума
  • Постоялец
  • ***
  • Сообщений: 187
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
FS + perl + Sys-Filesystem - работает под фрей?
« Ответ #7 : 24 Марта 2006, 14:25:01 »
Да, нет у самого модуля внутри нет этой проверки. Расковыривать весь модуль было лень, что бы исправить, пришлось его просто почистить. после этого make test прошел на ура.
Всё будет хорошо - я договорился!

Оффлайн arto

  • Ветеран
  • *****
  • Сообщений: 699
  • +0/-0
  • 2
    • Просмотр профиля
FS + perl + Sys-Filesystem - работает под фрей?
« Ответ #8 : 24 Марта 2006, 14:42:36 »
я прямо из модуля взял этот код.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28