diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-12-21 12:40:06 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-12-21 12:40:06 +0000 |
| commit | 2d85f131e1ec9181038692493bb9daca277edb45 (patch) | |
| tree | 372e90d993fe3c4506ce2f9ba0e76de7295f44f1 /perl-install/any.pm | |
| parent | 68830f224661c15349199961a9ab1b05ef85d2e2 (diff) | |
| download | drakx-backup-do-not-use-2d85f131e1ec9181038692493bb9daca277edb45.tar drakx-backup-do-not-use-2d85f131e1ec9181038692493bb9daca277edb45.tar.gz drakx-backup-do-not-use-2d85f131e1ec9181038692493bb9daca277edb45.tar.bz2 drakx-backup-do-not-use-2d85f131e1ec9181038692493bb9daca277edb45.tar.xz drakx-backup-do-not-use-2d85f131e1ec9181038692493bb9daca277edb45.zip | |
don't pass prefix, use $::prefix
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 5c68f84f8..9eed58f0d 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -815,7 +815,7 @@ sub set_login_serial_console { } sub report_bug { - my ($prefix, @other) = @_; + my (@other) = @_; sub header { " ******************************************************************************** @@ -832,23 +832,23 @@ sub report_bug { header("/sys/bus/scsi/devices"), `ls -l /sys/bus/scsi/devices`, header("lsmod"), cat_("/proc/modules"), header("cmdline"), cat_("/proc/cmdline"), - header("pcmcia: stab"), cat_("$prefix/var/lib/pcmcia/stab") || cat_("$prefix/var/run/stab"), + header("pcmcia: stab"), cat_("$::prefix/var/lib/pcmcia/stab") || cat_("$::prefix/var/run/stab"), header("usb"), cat_("/proc/bus/usb/devices"), header("partitions"), cat_("/proc/partitions"), header("cpuinfo"), cat_("/proc/cpuinfo"), - header("syslog"), cat_("/tmp/syslog") || cat_("$prefix/var/log/syslog"), + header("syslog"), cat_("/tmp/syslog") || cat_("$::prefix/var/log/syslog"), header("ddcxinfos"), ddcxinfos(), - header("stage1.log"), cat_("/tmp/stage1.log") || cat_("$prefix/root/drakx/stage1.log"), - header("ddebug.log"), cat_("/tmp/ddebug.log") || cat_("$prefix/root/drakx/ddebug.log"), - header("install.log"), cat_("$prefix/root/drakx/install.log"), - header("fstab"), cat_("$prefix/etc/fstab"), - header("modules.conf"), cat_("$prefix/etc/modules.conf"), - header("lilo.conf"), cat_("$prefix/etc/lilo.conf"), - header("menu.lst"), cat_("$prefix/boot/grub/menu.lst"), - header("XF86Config"), cat_("$prefix/etc/X11/XF86Config"), - header("XF86Config-4"), cat_("$prefix/etc/X11/XF86Config-4"), - header("/etc/modules"), cat_("$prefix/etc/modules"), - header("sysconfig/i18n"), cat_("$prefix/etc/sysconfig/i18n"), + header("stage1.log"), cat_("/tmp/stage1.log") || cat_("$::prefix/root/drakx/stage1.log"), + header("ddebug.log"), cat_("/tmp/ddebug.log") || cat_("$::prefix/root/drakx/ddebug.log"), + header("install.log"), cat_("$::prefix/root/drakx/install.log"), + header("fstab"), cat_("$::prefix/etc/fstab"), + header("modules.conf"), cat_("$::prefix/etc/modules.conf"), + header("lilo.conf"), cat_("$::prefix/etc/lilo.conf"), + header("menu.lst"), cat_("$::prefix/boot/grub/menu.lst"), + header("XF86Config"), cat_("$::prefix/etc/X11/XF86Config"), + header("XF86Config-4"), cat_("$::prefix/etc/X11/XF86Config-4"), + header("/etc/modules"), cat_("$::prefix/etc/modules"), + header("sysconfig/i18n"), cat_("$::prefix/etc/sysconfig/i18n"), map_index { even($::i) ? header($_) : $_ } @other; } |