Bug in $r->no_cache(1) with mod_expires

Hi all

I think that the behaviour of $r->no_cache(1) is buggy, when combined
with mod_expires.

I have:

ExpiresDefault "access plus 1 month"
ExpiresActive On

then in my mod_perl code, I call $r->no_cache(1)

The headers that are returned are:

Pragma: no-cache
 Cache-control: no-cache, max-age=864000
 Expires: Sat, 05 Dec 2009 16:08:53 GMT

Firefox doesn't cache this page, but IE6 - 8 does.

If I explicitly set the headers:

$headers->set( 'Pragma', 'no-cache' );
$headers->set( 'Cache-control', 'no-cache' );
$headers->set( 'Expires', -1 );

then I get:
Pragma: no-cache
Cache-control: no-cache
Expires: -1

which works across all browsers.

Could the behaviour of no_cache() be changed to do this instead?

thanks

Clint