diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-09-10 21:44:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-09-10 21:44:56 +0000 |
| commit | 3de91380695cfe656e7adc7dfa3d6e513758e18f (patch) | |
| tree | 8b2692cfdb198144fe0a88d3f3ee5eb7a7494dd4 /MDK | |
| parent | c3f9c4537115a091b52f56681bb8321578dce74c (diff) | |
| download | perl-MDK-Common-3de91380695cfe656e7adc7dfa3d6e513758e18f.tar perl-MDK-Common-3de91380695cfe656e7adc7dfa3d6e513758e18f.tar.gz perl-MDK-Common-3de91380695cfe656e7adc7dfa3d6e513758e18f.tar.bz2 perl-MDK-Common-3de91380695cfe656e7adc7dfa3d6e513758e18f.tar.xz perl-MDK-Common-3de91380695cfe656e7adc7dfa3d6e513758e18f.zip | |
remove "Uncaught exception from user code:", happens with "use diagnostics"
Diffstat (limited to 'MDK')
| -rw-r--r-- | MDK/Common/String.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/MDK/Common/String.pm b/MDK/Common/String.pm index 76cc34c..6a4b451 100644 --- a/MDK/Common/String.pm +++ b/MDK/Common/String.pm @@ -90,7 +90,10 @@ sub formatList { } sub formatError { my ($err) = @_; - $err =~ s/ at .*?$/\./s if !$::testing; + if (!$::testing) { + $err =~ s/Uncaught exception from user code:\n\t//s; #- happens with "use diagnostics" + $err =~ s/ at .*?$/\./s; + } $err; } sub formatTimeRaw { |