This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
1fda587
)
Typos in gv.t
author
Father Chrysostomos
<sprout@cpan.org>
Sun, 6 Nov 2011 20:57:12 +0000
(12:57 -0800)
committer
Father Chrysostomos
<sprout@cpan.org>
Sun, 6 Nov 2011 20:58:46 +0000
(12:58 -0800)
t/op/gv.t
patch
|
blob
|
blame
|
history
diff --git
a/t/op/gv.t
b/t/op/gv.t
index
81e7ba8
..
b681638
100644
(file)
--- a/
t/op/gv.t
+++ b/
t/op/gv.t
@@
-856,13
+856,13
@@
ok eval {
my $glob = do { no warnings "once"; \*phing::foo};
delete $::{"phing::"};
*$glob = *greck;
my $glob = do { no warnings "once"; \*phing::foo};
delete $::{"phing::"};
*$glob = *greck;
-}, "Assigning a glob-with-sub to a glob that has lost its stash w
a
rks";
+}, "Assigning a glob-with-sub to a glob that has lost its stash w
o
rks";
ok eval {
sub pon::foo;
my $glob = \*pon::foo;
delete $::{"pon::"};
*$glob = *foo;
ok eval {
sub pon::foo;
my $glob = \*pon::foo;
delete $::{"pon::"};
*$glob = *foo;
-}, "Assigning a glob to a glob-with-sub that has lost its stash w
a
rks";
+}, "Assigning a glob to a glob-with-sub that has lost its stash w
o
rks";
{
package Tie::Alias;
{
package Tie::Alias;