keys aren't tainted

Is it a bug or not, that keys aren't tainted in hashes?

    #!/usr/bin/perl -T
    use Devel::Peek qw/Dump/;
    $key = $ENV{HOME};
    Dump($key);

    $h{$key} = $key;
    ($k, $v) = each %h;

    print "\nKEY:\n";
    Dump($k);

    print "\nVALUE:\n";
    Dump($v);

Produces:

    ./perl -T -Ilib /tmp/keytaint
    SV = PVMG(0xc40e0) at 0xba730
      REFCNT = 1
      FLAGS = (GMG,SMG,pPOK)
      IV = 0
      NV = 0
      PV = 0x9f0a0 "/home/tchrist"\0
      CUR = 13
      LEN = 14
      MAGIC = 0xc5b20
	MG_VIRTUAL = &PL_vtbl_taint
	MG_TYPE = 't'
	MG_LEN = 1

    KEY:
    SV = PV(0xa0448) at 0xc495c
      REFCNT = 1
      FLAGS = (POK,pPOK)
      PV = 0x9fd20 "/home/tchrist"\0
      CUR = 13
      LEN = 14

    VALUE:
    SV = PVMG(0xc4100) at 0xc4974
      REFCNT = 1
      FLAGS = (GMG,SMG,pPOK)
      IV = 0
      NV = 0
      PV = 0xc3660 "/home/tchrist"\0
      CUR = 13
      LEN = 14
      MAGIC = 0xc5b80
	MG_VIRTUAL = &PL_vtbl_taint
	MG_TYPE = 't'
	MG_LEN = 1

--tom

• Re: keys aren't tainted by Tom Christiansen
• Re: keys aren't tainted by Chris Nandor
• Re: keys aren't tainted by Dan Sugalski
• Re: keys aren't tainted by Tom Christiansen
• keys aren't tainted by Tom Christiansen
• Re: keys aren't tainted by M.J.T. Guy
• Re: keys aren't tainted by Mark-Jason Dominus
• Re: keys aren't tainted by Chris Nandor