perl 5.22.2 відновлення роботи після обнови Slackware64 14.1 to 14.2

Після обнови Slackware64 14.1 до 14.2 в мене відмовився працювати коректно perl. Гугління не допомогіло відновити роботу. Знайшов відповідну тему тут. Допомогла така команда для ідентифікації і вирішення проблеми

strace aclocal 2>&1 | tail -n 10

Виконавши її я отримував такі логи

root@rm-proxy:/# strace perl -MCPAN -e shell  2>&1 | tail -n 100
getuid()                                = 0
geteuid()                               = 0
getgid()                                = 0
getegid()                               = 0
stat("/usr/local/lib64/perl5/CPAN/CacheMgr.pmc", 0x7ffe5fedc630) = -1 ENOENT (No such file or directory)
stat("/usr/local/lib64/perl5/CPAN/CacheMgr.pm", 0x7ffe5fedc560) = -1 ENOENT (No such file or directory)
stat("/usr/local/share/perl5/CPAN/CacheMgr.pmc", 0x7ffe5fedc630) = -1 ENOENT (No such file or directory)
stat("/usr/local/share/perl5/CPAN/CacheMgr.pm", 0x7ffe5fedc560) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/vendor_perl/CPAN/CacheMgr.pmc", 0x7ffe5fedc630) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/vendor_perl/CPAN/CacheMgr.pm", 0x7ffe5fedc560) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/vendor_perl/CPAN/CacheMgr.pmc", 0x7ffe5fedc630) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/vendor_perl/CPAN/CacheMgr.pm", 0x7ffe5fedc560) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/CPAN/CacheMgr.pmc", 0x7ffe5fedc630) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/CPAN/CacheMgr.pm", 0x7ffe5fedc560) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/CPAN/CacheMgr.pmc", 0x7ffe5fedc630) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/CPAN/CacheMgr.pm", {st_mode=S_IFREG|0444, st_size=7664, ...}) = 0
open("/usr/share/perl5/CPAN/CacheMgr.pm", O_RDONLY) = 5
ioctl(5, TCGETS, 0x7ffe5fedc300)        = -1 ENOTTY (Inappropriate ioctl for device)
lseek(5, 0, SEEK_CUR)                   = 0
read(5, "# -*- Mode: cperl; coding: utf-8"..., 8192) = 7664
stat("/usr/local/lib64/perl5/File/Find.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/local/lib64/perl5/File/Find.pm", 0x7ffe5fedbf00) = -1 ENOENT (No such file or directory)
stat("/usr/local/share/perl5/File/Find.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/local/share/perl5/File/Find.pm", 0x7ffe5fedbf00) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/vendor_perl/File/Find.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/vendor_perl/File/Find.pm", 0x7ffe5fedbf00) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/vendor_perl/File/Find.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/vendor_perl/File/Find.pm", 0x7ffe5fedbf00) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/File/Find.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/File/Find.pm", 0x7ffe5fedbf00) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/File/Find.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/File/Find.pm", {st_mode=S_IFREG|0444, st_size=33929, ...}) = 0
open("/usr/share/perl5/File/Find.pm", O_RDONLY) = 6
ioctl(6, TCGETS, 0x7ffe5fedbca0)        = -1 ENOTTY (Inappropriate ioctl for device)
lseek(6, 0, SEEK_CUR)                   = 0
read(6, "package File::Find;\nuse 5.006;\nu"..., 8192) = 8192
brk(0x1833000)                          = 0x1833000
brk(0x1832000)                          = 0x1832000
brk(0x1853000)                          = 0x1853000
read(6, " (is_tainted($p_dir) )) {\n\t    ("..., 8192) = 8192
brk(0x1877000)                          = 0x1877000
read(6, " {\n\t\twarnings::warnif \"Can't cd "..., 8192) = 8192
brk(0x1899000)                          = 0x1899000
lseek(6, 22207, SEEK_SET)               = 22207
lseek(6, 0, SEEK_CUR)                   = 22207
close(6)                                = 0
getuid()                                = 0
geteuid()                               = 0
getgid()                                = 0
getegid()                               = 0
stat("/usr/local/lib64/perl5/Config.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/local/lib64/perl5/Config.pm", 0x7ffe5fedbf00) = -1 ENOENT (No such file or directory)
stat("/usr/local/share/perl5/Config.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/local/share/perl5/Config.pm", 0x7ffe5fedbf00) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/vendor_perl/Config.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/vendor_perl/Config.pm", 0x7ffe5fedbf00) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/vendor_perl/Config.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/share/perl5/vendor_perl/Config.pm", 0x7ffe5fedbf00) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/Config.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/lib64/perl5/Config.pm", {st_mode=S_IFREG|0444, st_size=3233, ...}) = 0
open("/usr/lib64/perl5/Config.pm", O_RDONLY) = 6
ioctl(6, TCGETS, 0x7ffe5fedbca0)        = -1 ENOTTY (Inappropriate ioctl for device)
lseek(6, 0, SEEK_CUR)                   = 0
read(6, "# This file was created by confi"..., 8192) = 3233
read(6, "", 8192)                       = 0
close(6)                                = 0
stat("/usr/local/lib64/perl5/Scalar/Util.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/local/lib64/perl5/Scalar/Util.pm", {st_mode=S_IFREG|0444, st_size=9538, ...}) = 0
open("/usr/local/lib64/perl5/Scalar/Util.pm", O_RDONLY) = 6
ioctl(6, TCGETS, 0x7ffe5fedbca0)        = -1 ENOTTY (Inappropriate ioctl for device)
lseek(6, 0, SEEK_CUR)                   = 0
read(6, "# Copyright (c) 1997-2007 Graham"..., 8192) = 8192
lseek(6, 1142, SEEK_SET)                = 1142
lseek(6, 0, SEEK_CUR)                   = 1142
close(6)                                = 0
stat("/usr/local/lib64/perl5/List/Util.pmc", 0x7ffe5fedbfd0) = -1 ENOENT (No such file or directory)
stat("/usr/local/lib64/perl5/List/Util.pm", {st_mode=S_IFREG|0444, st_size=13898, ...}) = 0
open("/usr/local/lib64/perl5/List/Util.pm", O_RDONLY) = 6
ioctl(6, TCGETS, 0x7ffe5fedbca0)        = -1 ENOTTY (Inappropriate ioctl for device)
lseek(6, 0, SEEK_CUR)                   = 0
read(6, "# Copyright (c) 1997-2009 Graham"..., 8192) = 8192
brk(0x18bb000)                          = 0x18bb000
lseek(6, 1066, SEEK_SET)                = 1066
lseek(6, 0, SEEK_CUR)                   = 1066
close(6)                                = 0
getuid()                                = 0
geteuid()                               = 0
getgid()                                = 0
getegid()                               = 0
stat("/usr/local/lib64/perl5/auto/List/Util/Util.bs", 0x1491298) = -1 ENOENT (No such file or directory)
stat("/usr/local/lib64/perl5/auto/List/Util/Util.so", {st_mode=S_IFREG|0555, st_size=47562, ...}) = 0
open("/usr/local/lib64/perl5/auto/List/Util/Util.so", O_RDONLY|O_CLOEXEC) = 6
read(6, "\177ELF\2\1\1\0\0\0\0\0\0\0\0\0\3\0>\0\1\0\0\0\0\35\0\0\0\0\0\0"..., 832) = 832
fstat(6, {st_mode=S_IFREG|0555, st_size=47562, ...}) = 0
mmap(NULL, 2135560, PROT_READ|PROT_EXEC, MAP_PRIVATE|MAP_DENYWRITE, 6, 0) = 0x7fcdd93c0000
mprotect(0x7fcdd93ca000, 2093056, PROT_NONE) = 0
mmap(0x7fcdd95c9000, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_FIXED|MAP_DENYWRITE, 6, 0x9000) = 0x7fcdd95c9000
close(6)                                = 0
--- SIGSEGV {si_signo=SIGSEGV, si_code=SEGV_MAPERR, si_addr=0x5} ---
+++ killed by SIGSEGV +++







І ось тут я помітив, що виконання деяких скриптів перла обвалюється на файлі "/usr/local/lib64/perl5/auto/List/Util/Util.so". Хоча перл не повинен був інсталюватися в директорію /usr/local/lib64/perl5. Видаливши всі файли з /usr/local/lib64/perl5 та /usr/local/share/perl5 які залишилися із версії 14.1 Слакваре я виправив проблему некоректної роботи Перл.

Comments

Post a Comment

Popular posts from this blog

Відновлення роботи роботи роутера Linksys WRT54G3G-ST після невдалого обновлення прошивки.

Image
Купив я якось роутер Linksys WRT54G3G-ST. Із цікавості почав розбиратися в його налаштуваннях. Та спробував його сконфігурувати за допомогою утиліти з офіційного сайту. Но у мене налаштувати його не вийшло, а от вбити - так. Отже, це була передісторія. А що ми маємо. Роутер який не піднімається і не працює, тільки блимає світлодіод POWER, що сигналізує про неможливість завантаження роутера. Я не буду описувати абсолютно всіх кроків по відновленню. Я лише дам посилання на ті статті, які мені допомогли відновити роботу даного роутера. Що ми робимо найперше. 1. Ми будемо відновлювати роботу роутера за допомогою JTAG & TTL to UART (RS232) портів роутера. 2. Де саме вони розміщенні на роутері та як підключити їх до комп'ютера можна знайти ось тут        2.1 Розміщення послідовного порта та його контакти описані тут        2.2 Розміщення та розпіновка контактів JTAG ось тут 3. По цій статті можна зробити кабель JTAG і відновити роботу роутера. Там все послідовно описано. Правд
Read more

Docker certbor autoreNEW cert cron job

Hi. If You using a Portainer for deploy yours applications with nginx, apache and Let’s Encrypt SSL you will need to auto renew the certificates when they were ended. I'm using that bash script and put it in the  /etc/cron.weekly folder (using UBUNTU 22.03)  #!/bin/bash # Set PATH PATH=/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin # Run the certbot container to renew the certs docker run -ti --rm -v certbot-webroot-VOLUME:/var/www/certbot -v certbot-data-VOLUME:/etc/letsencrypt:rw certbot/certbot renew # Restart container docker restart container-WITH-WEB-SERVER # Copy cert for Portainer cat /var/lib/docker/volumes/certbot-data-VOLUME/_data/live/YOUR.DOMAIN.COM/fullchain.pem > /opt/portainer/certs/cert.pem cat /var/lib/docker/volumes/certbot-data/_data/live/YOUR.DOMAIN.COM/privkey.pem > /opt/portainer/certs/key.pem docker restart portainer PS. When You will put script to the   /etc/cron.weekly   folder don't add an extension to the script only name. With a
Read more

VirtualBOX і завантаження в віртуальній машині із завантажувальної флешки

Можливо комусь стане в пригоді. Постала проблема вдома на компі завантажитися із завантажувальної флешки в VirtualBox. Стоїть у мене вдома 2 операційки: Windows XP і Slackware 13.37. Віртуалку відповідно я запустив під лінуксом. Отже, сама віртуальна машина не завантажується із usb накопичувача підключеного до віртуальної машини. Погугливши деякий час я зрозумів, що вийде завантажитися лише з образа флешки, при цьому його потрібно конвертувати в образ віртуального диску VirtualBox. Отже, всі дії виконуємо в консолі із під рута. Як отримати права рута я надіюсь ви знаєте. Спочатку визначаємо, назву блочного пристрою нашого флеш накопичувача dmesg | grep sd З виводу видно що у мене це sdc1 [ 7025.939478] sd 13:0:0:0: Attached scsi generic sg3 type 0 [ 7025.941286] sd 13:0:0:0: [sdc] 3948543 512-byte logical blocks: (2.02 GB/1.88 GiB) [ 7025.942232] sd 13:0:0:0: [sdc] Write Protect is off [ 7025.942238] sd 13:0:0:0: [sdc] Mode Sense: 00 00 00 00 [ 7025.942242] sd 13:0:0:0: [s
Read more