diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-07 19:34:10 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-04-07 19:34:10 +0000 |
| commit | 910764e6d406039bd2d888fd1adf2a83fb52d1b5 (patch) | |
| tree | 8392a858899693f0ae21edbd817f8075fee708f2 /t | |
| parent | 85d9270e974e9a2b887cbda89ace5a9596044b9a (diff) | |
| download | perl-910764e6d406039bd2d888fd1adf2a83fb52d1b5.tar.gz | |
Fully qualify in warning message the name of a subroutine redefined
via glob assignment
p4raw-id: //depot/perl@15789
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/op | 2 | ||||
| -rw-r--r-- | t/lib/warnings/sv | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/t/lib/warnings/op b/t/lib/warnings/op index 7833562273..9b20a8c256 100644 --- a/t/lib/warnings/op +++ b/t/lib/warnings/op @@ -775,7 +775,7 @@ no warnings 'redefine' ; sub fred () { 1 } *fred = sub () { 2 }; EXPECT -Constant subroutine fred redefined at - line 4. +Constant subroutine main::fred redefined at - line 4. ######## # op.c use warnings 'redefine' ; diff --git a/t/lib/warnings/sv b/t/lib/warnings/sv index 3903df381f..d9aa827fc8 100644 --- a/t/lib/warnings/sv +++ b/t/lib/warnings/sv @@ -262,7 +262,7 @@ no warnings 'redefine' ; sub jim {} *jim = \&joe ; EXPECT -Subroutine fred redefined at - line 5. +Subroutine main::fred redefined at - line 5. ######## # sv.c use warnings 'printf' ; |