New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
[PATCH] Test::Harness and Devel::Cover combine with overloading to cause infinite recursion in Carp.pm #8123
Comments
From @demerphqCreated by @demerphqAttached is test case that when run under Test::Harness and The combination of Devel::Cover, Test::Harness, overloading and if The first set of output is without Devel::Cover, the second is with Anyway, ive cc'ed this to the three parties who seem to be involved. Example output: D:\dev\DC_test\Dummy>set HARNESS_PERL_SWITCHES= D:\dev\DC_test\Dummy>nmake test Microsoft (R) Program Maintenance Utility Version 7.00.9955 D:\ASPerl\811\bin\perl.exe "-MExtUtils::Command::MM" "-e" D:\dev\DC_test\Dummy>set HARNESS_PERL_SWITCHES=-MDevel::Cover D:\dev\DC_test\Dummy>nmake test Microsoft (R) Program Maintenance Utility Version 7.00.9955 D:\ASPerl\811\bin\perl.exe "-MExtUtils::Command::MM" "-e" D:\dev\DC_test\Dummy> Perl Info
|
From @demerphqCarp_Heavy_pm.patch--- lib\Carp\Heavy.pm.bak 2004-12-13 08:49:10.000000000 +0100
+++ lib\Carp\Heavy.pm 2005-09-09 21:03:52.187500000 +0200
@@ -43,11 +43,10 @@
# Transform an argument to a function into a string.
sub format_arg {
my $arg = shift;
- if (not defined($arg)) {
- $arg = 'undef';
- }
- elsif (ref($arg)) {
+ if (ref($arg)) {
$arg = defined($overload::VERSION) ? overload::StrVal($arg) : "$arg";
+ }elsif (not defined($arg)) {
+ $arg = 'undef';
}
$arg =~ s/'/\\'/g;
$arg = str_len_trim($arg, $MaxArgLen);
|
From @demerphq |
@demerphq - Status changed from 'new' to 'open' |
From @smpeters
Thanks! I applied this as change #25679. |
@smpeters - Status changed from 'open' to 'resolved' |
Migrated from rt.perl.org#37233 (status was 'resolved')
Searchable as RT37233$
The text was updated successfully, but these errors were encountered: