Bug #40774 for Krb4: Calling ticket method on a Creds object causes a segfault

This is under 64-bit Hardy. The test script and output are attached.

#!/usr/bin/env perl use strict; use warnings; use Data::Dumper; use Authen::Krb4; my $realm = Authen::Krb4::get_lrealm(1); my $creds = Authen::Krb4::get_cred("zephyr", "zephyr", $realm); print $creds->ticket, "\n"

*** glibc detected *** perl: munmap_chunk(): invalid pointer: 0x00000000007556f8 *** ======= Backtrace: ========= /lib/libc.so.6(cfree+0x1b6)[0x7f534d534d46] /home/zev/lib/perl5/site_perl/5.10.0/x86_64-linux/auto/Authen/Krb4/Krb4.so(XS_Authen__Krb4__Ticket_DESTROY+0xb7)[0x7f534d0ae647] perl(Perl_pp_entersub+0x574)[0x4622f4] perl(Perl_call_sv+0x51a)[0x45ca7a] perl(Perl_sv_clear+0xbb)[0x4708ab] perl(Perl_sv_free2+0x36)[0x470fb6] perl(Perl_sv_clear+0x3b3)[0x470ba3] perl(Perl_sv_free2+0x36)[0x470fb6] perl(Perl_free_tmps+0x4c)[0x4876bc] perl(perl_run+0x265)[0x45d1c5] perl(main+0xb4)[0x41f5b4] /lib/libc.so.6(__libc_start_main+0xf4)[0x7f534d4db1c4] perl(sin+0xd9)[0x41f469] ======= Memory map: ======== 00400000-0052a000 r-xp 00000000 08:01 6439908 /home/zev/bin/perl 0072a000-0072e000 rw-p 0012a000 08:01 6439908 /home/zev/bin/perl 0072e000-00857000 rw-p 0072e000 00:00 0 [heap] 7f534bd9e000-7f534bdab000 r-xp 00000000 08:01 8093856 /lib/libgcc_s.so.1 7f534bdab000-7f534bfab000 ---p 0000d000 08:01 8093856 /lib/libgcc_s.so.1 7f534bfab000-7f534bfac000 rw-p 0000d000 08:01 8093856 /lib/libgcc_s.so.1 7f534bfac000-7f534bfae000 r-xp 00000000 08:01 8093708 /lib/libkeyutils-1.2.so 7f534bfae000-7f534c1ad000 ---p 00002000 08:01 8093708 /lib/libkeyutils-1.2.so 7f534c1ad000-7f534c1ae000 rw-p 00001000 08:01 8093708 /lib/libkeyutils-1.2.so 7f534c1ae000-7f534c1b5000 r-xp 00000000 08:01 8012821 /usr/lib/libkrb5support.so.0.1 7f534c1b5000-7f534c3b4000 ---p 00007000 08:01 8012821 /usr/lib/libkrb5support.so.0.1 7f534c3b4000-7f534c3b5000 rw-p 00006000 08:01 8012821 /usr/lib/libkrb5support.so.0.1 7f534c3b5000-7f534c3d8000 r-xp 00000000 08:01 8012822 /usr/lib/libk5crypto.so.3.1 7f534c3d8000-7f534c5d7000 ---p 00023000 08:01 8012822 /usr/lib/libk5crypto.so.3.1 7f534c5d7000-7f534c5d9000 rw-p 00022000 08:01 8012822 /usr/lib/libk5crypto.so.3.1 7f534c5d9000-7f534c5db000 r-xp 00000000 08:01 8093801 /lib/libcom_err.so.2.1 7f534c5db000-7f534c7da000 ---p 00002000 08:01 8093801 /lib/libcom_err.so.2.1 7f534c7da000-7f534c7db000 rw-p 00001000 08:01 8093801 /lib/libcom_err.so.2.1 7f534c7db000-7f534c86f000 r-xp 00000000 08:01 8012819 /usr/lib/libkrb5.so.3.3 7f534c86f000-7f534ca6f000 ---p 00094000 08:01 8012819 /usr/lib/libkrb5.so.3.3 7f534ca6f000-7f534ca72000 rw-p 00094000 08:01 8012819 /usr/lib/libkrb5.so.3.3 7f534ca72000-7f534ca84000 r-xp 00000000 08:01 6422943 /lib/libresolv-2.7.so 7f534ca84000-7f534cc84000 ---p 00012000 08:01 6422943 /lib/libresolv-2.7.so 7f534cc84000-7f534cc86000 rw-p 00012000 08:01 6422943 /lib/libresolv-2.7.so 7f534cc86000-7f534cc88000 rw-p 7f534cc86000 00:00 0 7f534cc88000-7f534cc8b000 r-xp 00000000 08:01 8012841 /usr/lib/libdes425.so.3.0 7f534cc8b000-7f534ce8a000 ---p 00003000 08:01 8012841 /usr/lib/libdes425.so.3.0 7f534ce8a000-7f534ce8b000 rw-p 00002000 08:01 8012841 /usr/lib/libdes425.so.3.0 7f534ce8b000-7f534cea4000 r-xp 00000000 08:01 8012820 /usr/lib/libkrb4.so.2.0 7f534cea4000-7f534d0a4000 ---p 00019000 08:01 8012820 /usr/lib/libkrb4.so.2.0 7f534d0a4000-7f534d0a6000 rw-p 00019000 08:01 8012820 /usr/lib/libkrb4.so.2.0 7f534d0a6000-7f534d0ab000 rw-p 7f534d0a6000 00:00 0 7f534d0ab000-7f534d0b4000 r-xp 00000000 08:01 7867237 /home/zev/lib/perl5/site_perl/5.10.0/x86_64-linux/auto/Authen/Krb4/Krb4.so 7f534d0b4000-7f534d2b4000 ---p 00009000 08:01 7867237 /home/zev/lib/perl5/site_perl/5.10.0/x86_64-linux/auto/Authen/Krb4/Krb4.so 7f534d2b4000-7f534d2b5000 rw-p 00009000 0Aborted