Hi Jean-Louis,
Thanks for the response. Is there a way to rebuild with '-g' for
debugging support and to avoid stripping symbols? Would that help?
Here is the gdb output...
$ gdb --args perl /usr/local/sbin/amlabel --version
GNU gdb (GDB) 7.6.1-ubuntu
Copyright (C) 2013 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later
<http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law. Type "show
copying"
and "show warranty" for details.
This GDB was configured as "x86_64-linux-gnu".
For bug reporting instructions, please see:
<http://www.gnu.org/software/gdb/bugs/>...
Reading symbols from /usr/bin/perl...(no debugging symbols
found)...done.
(gdb) run
Starting program: /usr/bin/perl /usr/local/sbin/amlabel --version
[Thread debugging using libthread_db enabled]
Using host libthread_db library
"/lib/x86_64-linux-gnu/libthread_db.so.1".
Program received signal SIGSEGV, Segmentation fault.
0x00007ffff489876d in ?? () from /lib/x86_64-linux-gnu/libgcrypt.so.11
(gdb) backtrace
#0 0x00007ffff489876d in ?? () from
/lib/x86_64-linux-gnu/libgcrypt.so.11
#1 0x00007ffff48925ae in ?? () from
/lib/x86_64-linux-gnu/libgcrypt.so.11
#2 0x00007ffff489004c in gcry_control () from
/lib/x86_64-linux-gnu/libgcrypt.so.11
#3 0x00007ffff0c75259 in device_api_init () at device.c:64
#4 0x00007ffff0ebc1f2 in boot_Amanda__Device (my_perl=<optimized
out>, cv=<optimized out>) at Amanda/Device.c:4676
#5 0x00007ffff7b10591 in Perl_pp_entersub () from
/usr/lib/libperl.so.5.14
#6 0x00007ffff7b07d36 in Perl_runops_standard () from
/usr/lib/libperl.so.5.14
#7 0x00007ffff7aa43c0 in Perl_call_sv () from /usr/lib/libperl.so.5.14
#8 0x00007ffff7aa51cc in Perl_call_list () from
/usr/lib/libperl.so.5.14
#9 0x00007ffff7a8faf1 in ?? () from /usr/lib/libperl.so.5.14
#10 0x00007ffff7a9b7b3 in Perl_newATTRSUB () from
/usr/lib/libperl.so.5.14
#11 0x00007ffff7a9bfa2 in Perl_utilize () from /usr/lib/libperl.so.5.14
#12 0x00007ffff7ac989e in Perl_yyparse () from /usr/lib/libperl.so.5.14
#13 0x00007ffff7aa9b76 in perl_parse () from /usr/lib/libperl.so.5.14
#14 0x0000000000400dae in main ()
(gdb) list
1 <built-in>: No such file or directory.
Best regards,
Kervin
Web Services Design, Development and Maintenance
http://adevsoft.com/
-----Original Message-----
From: Jean-Louis Martineau [mailto:martin...@zmanda.com]
Sent: Sunday, January 5, 2014 9:19 AM
To: Kervin L. Pierre
Cc: amanda-users@amanda.org
Subject: Re: amlabel segmentation fault
Kevin,
run amlabel under gdb:
$ gdb perl
(gdb) run /usr/local/sbin/amlabel --version
(gdb) bt
(gdb) list
Jean-Louis
On 01/04/2014 11:01 PM, Kervin L. Pierre wrote:
Hi,
This Segfault seems to occur occasionally and for different
reasons. It's possible that amlabel do not handle unknown devices
gracefully. But I'm still looking. My tapedevice is "S3".
But I just built 3.3.5 on a Ubuntu desktop and now I get a segfault
whenever I run amlabel...
$ perl -d /usr/local/sbin/amlabel --version
Loading DB routines from perl5db.pl version 1.33 Editor support
available.
Enter h or `h h' for help, or `man perldebug' for more help.
Signal SEGV at /usr/local/share/perl/5.14.2/Amanda/Device.pm line 12
require Amanda/Device.pm called at /usr/local/sbin/amlabel line 29
main::BEGIN() called at
/usr/local/share/perl/5.14.2/Amanda/Device.pm line 0
eval {...} called at /usr/local/share/perl/5.14.2/Amanda/Device.pm
line 0
Device.pm looks like....
# This file was automatically generated by SWIG (http://www.swig.org).
# Version 2.0.4
#
# Do not make changes to this file unless you know what you are
doing--modify # the SWIG interface file instead.
package Amanda::Device;
use base qw(Exporter);
use base qw(DynaLoader);
require Amanda::Header;
package Amanda::Devicec;
bootstrap Amanda::Device;
package Amanda::Device;
@EXPORT = qw();
With the "bootstrap Amanda" line being line 12.
Should that line read "package Amanda::Devicec;"?
Any idea what the issue could be?
Best regards,
Kervin
Web Services Design, Development and Maintenance http://adevsoft.com/
