+SKIP: {
+ skip 'The pragma doesn\'t propagte into eval STRING before perl 5.10' => 2
+ if "$]" < 5.009005;
+ my @w;
+ my $test = sub { eval 'return; new XYZ' };
+ {
+ local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
+ eval 'return; no indirect; BEGIN { $test->() }';
+ }
+ is $@, '', 'eval test doesn\'t croak prematurely';
+ is @w, 0, 'eval did not throw a warning';
+ diag join "\n", 'All warnings:', @w if @w;
+}
+