Change 33565: Re: Change 33556: [PATCH] borg parent.pm

[Rafael Garcia-Suarez]

Change 33565 by [EMAIL PROTECTED] on 2008/03/25 15:56:56

        Subject: Re: Change 33556: [PATCH] borg parent.pm
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Tue, 25 Mar 2008 11:51:00 -0400
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/Devel/SelfStubber.t#4 edit

Differences ...

==== //depot/perl/lib/Devel/SelfStubber.t#4 (text) ====
Index: perl/lib/Devel/SelfStubber.t
--- perl/lib/Devel/SelfStubber.t#3~22091~       2004-01-07 11:09:50.000000000 
-0800
+++ perl/lib/Devel/SelfStubber.t        2008-03-25 08:56:56.000000000 -0700
@@ -48,7 +48,7 @@
   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 @@
   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 @@
 }
 
 # "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 @@
 }
 
 __DATA__
-################ Parent.pm
-package Parent;
+################ xParent.pm
+package xParent;
 
 sub foo {
   return __PACKAGE__;
 }
 1;
 __END__
-################ Child.pm
-package Child;
-require Parent;
[EMAIL PROTECTED] = 'Parent';
+################ xChild.pm
+package xChild;
+require xParent;
[EMAIL PROTECTED] = 'xParent';
 use SelfLoader;
 
 1;
End of Patch.