Select Code to Download

#!/usr/bin/perl
use strict;
...
# access invalid memory.
my $whats_his_name = get_artist_name_from_cd($johnny_houseburner_cd);
print STDERR "What was that guy's name again? $whats_his_name?\n";

$ perl cd_artist.plx 
Artist::DESTROY called.
...
CD::DESTROY called.
Bus error
$

    my $copy = $artist;
    $artist = new_artist("FunThree");

 
 typedef struct CD {
...
+    SvREFCNT_dec(cd->artist_ref);
     Safefree(cd);
 }

/* Yecch. */

...
    SvREFCNT_dec(obj->bar->perlobj);
    Safefree(obj);
}