@INPUT = <DATA>;
@simple_input = grep /^\s*\w+\s*\$\w+\s*[#\n]/, @INPUT;
-print "1..", (10 + @INPUT + @simple_input), "\n";
+print "1..", (11 + @INPUT + @simple_input), "\n";
$ord = 0;
sub wrn {"@_"}
}
}
}
+
+$ord++;
+eval {
+ sub PVBM () { 'foo' }
+ index 'foo', PVBM;
+ my $x = PVBM;
+
+ my $str = 'foo';
+ my $pvlv = \substr $str, 0, 1;
+ $x = $pvlv;
+
+ 1;
+};
+if ($@) {
+ warn "# $@";
+ print 'not ';
+}
+print "ok $ord\n";
+
__END__
ref $xref # ref
ref $cstr # ref nonref