diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2008-03-25 07:51:00 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-03-25 15:56:56 +0000 |
| commit | c05290799fe650da776e2abcfd6f8da9ec7b5d50 (patch) | |
| tree | 290694b30987aee8607b03c107ef03eb8a7cce6b /lib/Devel | |
| parent | 8c32f14907f7af42ea4cc979a30b4b7b94bd4694 (diff) | |
| download | perl-c05290799fe650da776e2abcfd6f8da9ec7b5d50.tar.gz | |
Re: Change 33556: [PATCH] borg parent.pm
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510803250851w52ea0c84n9876834d8e8b79e3@mail.gmail.com>
p4raw-id: //depot/perl@33565
Diffstat (limited to 'lib/Devel')
| -rw-r--r-- | lib/Devel/SelfStubber.t | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/lib/Devel/SelfStubber.t b/lib/Devel/SelfStubber.t index b5deb142fa..245517a66e 100644 --- a/lib/Devel/SelfStubber.t +++ b/lib/Devel/SelfStubber.t @@ -48,7 +48,7 @@ close FH; push @cleanup, $file; open FH, ">$file" or die $!; select FH; - Devel::SelfStubber->stub('Child', $inlib); + Devel::SelfStubber->stub('xChild', $inlib); select STDOUT; print "ok 1\n"; close FH or die $!; @@ -56,7 +56,7 @@ close FH; open FH, $file or die $!; my @A = <FH>; - if (@A == 1 && $A[0] =~ /^\s*sub\s+Child::foo\s*;\s*$/) { + if (@A == 1 && $A[0] =~ /^\s*sub\s+xChild::foo\s*;\s*$/) { print "ok 2\n"; } else { print "not ok 2\n"; @@ -112,14 +112,14 @@ close FH; } # "wrong" and "right" may change if SelfLoader is changed. -my %wrong = ( Parent => 'Parent', Child => 'Parent' ); -my %right = ( Parent => 'Parent', Child => 'Child' ); +my %wrong = ( xParent => 'xParent', xChild => 'xParent' ); +my %right = ( xParent => 'xParent', xChild => 'xChild' ); if ($^O eq 'VMS') { # extra line feeds for MBX IPC - %wrong = ( Parent => "Parent\n", Child => "Parent\n" ); - %right = ( Parent => "Parent\n", Child => "Child\n" ); + %wrong = ( xParent => "xParent\n", xChild => "xParent\n" ); + %right = ( xParent => "xParent\n", xChild => "xChild\n" ); } -my @module = qw(Parent Child) +my @module = qw(xParent xChild) ; sub fail { my ($left, $right) = @_; @@ -225,18 +225,18 @@ if (/Did the documentation here survive\?/) { } __DATA__ -################ Parent.pm -package Parent; +################ xParent.pm +package xParent; sub foo { return __PACKAGE__; } 1; __END__ -################ Child.pm -package Child; -require Parent; -@ISA = 'Parent'; +################ xChild.pm +package xChild; +require xParent; +@ISA = 'xParent'; use SelfLoader; 1; |