is($@, "ok\n", 'no indirect "hlagh" didn\'t croak');
like($warn, qr/^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"Hlagh1"/, 'no indirect "hlagh" enables the pragma');
}
is($@, "ok\n", 'no indirect "hlagh" didn\'t croak');
like($warn, qr/^Indirect\s+call\s+of\s+method\s+"new"\s+on\s+object\s+"Hlagh1"/, 'no indirect "hlagh" enables the pragma');
}