t/op/aassign.t

568     my $sref = do { my $tmp = 2; \$tmp };
569     ($sref, $fill) = (1, $$sref);
570     is ($sref, 1, "RT #130132 scalar 1");
574     $sref = \$x;
575     ($sref, $$sref) = (2, 3);
576     is ($sref, 2, "RT #130132 scalar derefffed 1");
580     $sref = \$x;
581     ($sref, $$sref) = (2);
582     is ($sref, 2,     "RT #130132 scalar undef 1");
586     $sref = do { my $tmp = 2; \$tmp };
587     @a = (($sref) = (1, $$sref));
588     is ($sref, 1,     "RT #130132 scalar list cxt 1");