package My::Baz;
::stderr_like{ My::Package2::foo() }
- qr/^foo is deprecated at t.basic\.t line \d+\s+My::Baz/,
+ qr/^foo is deprecated at t.basic\.t line \d+\.?\s+My::Baz/,
'deprecation warning for call to My::Package2::foo() and mentions My::Baz but not My::Package[12]';
::stderr_is{ My::Package2::foo() }
'no deprecation warning for call to My::Package1::foo()';
::stderr_like{ My::Package2::bar() }
- qr/^bar is deprecated at t.basic\.t line \d+\s+My::Baz/,
+ qr/^bar is deprecated at t.basic\.t line \d+\.?\s+My::Baz/,
'deprecation warning for call to My::Package2::foo() and mentions My::Baz but not My::Package[12]';
::stderr_is{ My::Package2::bar() }
package My::Quux;
::stderr_like{ My::Package1::foo() }
- qr/^foo is deprecated at t.basic\.t line \d+\s+My::Quux/,
+ qr/^foo is deprecated at t.basic\.t line \d+\.?\s+My::Quux/,
'deprecation warning for call to My::Package1::foo() and mentions My::Quux but not My::Package[12]';
::stderr_is{ My::Package1::foo() }