"Undefined value assigned to typeglob");
}
else {
- GV *gv = gv_fetchsv(sstr, GV_ADD, SVt_PVGV);
+ STRLEN len;
+ const char *nambeg = SvPV_nomg_const(sstr, len);
+ GV *gv = gv_fetchpvn_flags(
+ nambeg, len, SvUTF8(sstr)|GV_ADD, SVt_PVGV
+ );
if (dstr != (const SV *)gv) {
const char * const name = GvNAME((const GV *)dstr);
const STRLEN len = GvNAMELEN(dstr);
chdir 't' if -d 't';
@INC = '../lib';
require './test.pl';
- plan (tests => 219);
+ plan (tests => 220);
}
use strict;
# Assignment.
$dummy = $var ; check_count "=";
+{
+ no warnings 'once';
+ *dummy = $var ; check_count '*glob = $tied';
+}
# Unary +/-
$dummy = +$var ; check_count "unary +";