pnotes leak (perl5.8 + mod_perl-2.0.4)

gistfile1.pl

#!/usr/bin/perl

use strict;
use warnings;

use B;
use Apache2::RequestUtil;

print <<"END;";
Content-type: text/plain

END;

for(1..10){
    my $notes_ref = Apache2::RequestUtil->request->pnotes();
    my $count = B::SV::REFCNT(B::svref_2object($notes_ref));

    print "count[$count]\n";
}