diff options
Diffstat (limited to 't/test_xml_split.t')
-rwxr-xr-x | t/test_xml_split.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/test_xml_split.t b/t/test_xml_split.t index 9c5db09..87e96d1 100755 --- a/t/test_xml_split.t +++ b/t/test_xml_split.t @@ -91,7 +91,7 @@ else sub test_error { my( $command, $options, $expected)= @_; my( $stdout, $stderr, $success, $exit_code) = IO::CaptureOutput::capture_exec( "$perl $command $options test_xml_split.xml"); - matches( $stderr, qr/^$expected/, "$command $options"); + matches( $stderr, qr/$expected/, "$command $options"); } sub test_out |