You could easily extend Clone::PP to do this, by adding a line to the elsif ($ref_type eq 'REF' ... section, something like weaken( $copy = $source ) if isweak( $source );.