@@ -1,6 +1,10 @@ Revision history for Fatal -1.10_02 +1.10_03 Fri Jun 13 11:04:17 AUSEST 2008 + * Updated backwards compatibility tests to work on + non-Enligh systems. + +1.10_02 Fri Jun 13 10:55:00 AUSEST 2008 * Tweaked boilerplate test to remove windows-only paths. 1.10_01 Thu Jun 12 17:19:13 AUSEST 2008 Changes @@ -12,7 +12,7 @@ use overload q{""} => "stringify" ; -our $VERSION = '1.10_02'; +our $VERSION = '1.10_03'; =head1 NAME lib/autodie/exception.pm @@ -8,7 +8,7 @@ eval { open(my $fh, '<', NO_SUCH_FILE); }; -my $old_msg = qr{Can't open\(GLOB\(0x[0-9a-f]+\), <, xyzzy_this_file_is_not_here\): No such file or directory at \(eval \d+\) line \d+\s+main::__ANON__\('GLOB\(0x[0-9a-f]+\)', '<', 'xyzzy_this_file_is_not_here'\) called at \S+ line \d+\s+eval \Q{...}\E called at \S+ line \d+}; +my $old_msg = qr{Can't open\(GLOB\(0x[0-9a-f]+\), <, xyzzy_this_file_is_not_here\): .* at \(eval \d+\) line \d+\s+main::__ANON__\('GLOB\(0x[0-9a-f]+\)', '<', 'xyzzy_this_file_is_not_here'\) called at \S+ line \d+\s+eval \Q{...}\E called at \S+ line \d+}; like($@,$old_msg,"Backwards compat ugly messages"); ok(!ref($@), "Exception is a string, not an object"); t/backcompat.t 66e2f7e71be20b717f0a83e5955f2665367b5047 Paul Fenwick pjf@perltraining.com.au http://github.com/pfenwick/autodie/commit/db9fab712c71f8960ae04e47735c094fa2975c76 db9fab712c71f8960ae04e47735c094fa2975c76 2008-06-12T18:05:46-07:00 2008-06-12T18:05:46-07:00 Bumped to 1.10_03. Fixed backcompat tests on non-English systems. b02aa65b4be97b638a31372fab0159fd6254300b Paul Fenwick pjf@perltraining.com.au