diff options
| author | Yves Orton <demerphq@gmail.com> | 2009-10-26 21:52:05 +0100 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2009-10-26 23:12:50 +0100 |
| commit | 9134ea20ecf6c7a898519ea43ac463bc4da08840 (patch) | |
| tree | eac9e42206a5f4b65de593c3eae35518e3ec5feb /t/lib/strict | |
| parent | 2699d6345b651c48a820507d6287ddca1f5b2ee4 (diff) | |
| download | perl-9134ea20ecf6c7a898519ea43ac463bc4da08840.tar.gz | |
add an elipses to string/ref warnings when str longer than 32 chars
Wasted a few minutes more than necessary trying to work out why the
string was truncated when in fact it was the error message that was
truncating the string.
Diffstat (limited to 't/lib/strict')
| -rw-r--r-- | t/lib/strict/refs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/t/lib/strict/refs b/t/lib/strict/refs index 075ca4910e..e8f75660b8 100644 --- a/t/lib/strict/refs +++ b/t/lib/strict/refs @@ -19,6 +19,14 @@ EXPECT # strict refs - error use strict ; +my $str="A::Really::Big::Package::Name::To::Use"; +$str->{foo}= 1; +EXPECT +Can't use string ("A::Really::Big::Package::Name::T"...) as a HASH ref while "strict refs" in use at - line 5. +######## + +# strict refs - error +use strict ; my $fred ; my $a = ${"fred"} ; EXPECT |