From @masak

<masak> I've asked this before, but gotten contradictory answers​: if
I'm in a script and import modules A and B, and A exports a bunch of
subs which override Perl 6 core subs, will these still be overriddent
in module B?
<moritz_> masak​: no.
<moritz_> masak​: B unly sees the overridden symbols if it uses lift
<masak> moritz_​: among the two possible answers, that's the one I like.
<JDlugosz> masak​: no. In Perl 5, the override is lexical. In Perl
6, it should be the same.
<masak> moritz_​: I've actually been bitten by Rakudo implementing the
other answer. :/
<moritz_> masak​: then do your job (and rt it) ;-)
<masak> moritz_​: yes.

$ cat A.pm
sub print(*@​args) is export(​:DEFAULT) {
  say "I'm in ur module, overriding ur functions!";
}
$ cat B.pm
print "OH HAI"
$ perl6 -e 'use A; use B'
I'm in ur module, overriding ur functions!

Finally, getting some support from S11​: "It must be possible for any
official module to be separately compiled without knowledge of the
context in which it will be embedded, and this separate compilation
must be able to produce a deterministic profile of the interface."

From @jnthn

On Sun May 17 11​:57​:26 2009, masak wrote​:

$ cat A.pm
sub print(*@​args) is export(​:DEFAULT) {
say "I'm in ur module, overriding ur functions!";
}
$ cat B.pm
print "OH HAI"
$ perl6 -e 'use A; use B'
I'm in ur module, overriding ur functions!

Finally, getting some support from S11​: "It must be possible for any
official module to be separately compiled without knowledge of the
context in which it will be embedded, and this separate compilation
must be able to produce a deterministic profile of the interface."

This is probably fixed since we implemented lexical import. On latest
Rakudo​:

C​:\Consulting\rakudo>type A.pm
sub print(*@​args) is export(​:DEFAULT) {
  say "I'm in ur module, overriding ur functions!";
}

C​:\Consulting\rakudo>type B.pm
print "OH HAI";

C​:\Consulting\rakudo>perl6 -e "use A; use B;"
OH HAI

So, seems fine now. :-) Given to moritz++ for spectests.

Thanks,

Jonathan

The RT System itself - Status changed from 'new' to 'open'

@moritz - Status changed from 'open' to 'resolved'

From @kyleha

This is an automatically generated mail to inform you that tests are now available in at least one of these files​: t/spec/S10-packages/basic.t, t/spec/packages/Foo.pm, t/spec/packages/OverrideTest.pm

commit 7c110845fe4de348e248528161243bf60e99bfeb
Author​: moritz <moritz@​c213334d-75ef-0310-aa23-eaa082d1ae64>
Date​: Sat May 8 09​:21​:37 2010 +0000

  [t/spec] test for RT #​65738, overriding exports do not affect modules loaded later on
 
  git-svn-id​: http://svn.pugscode.org/pugs@&#8203;30587 c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S10-packages/basic.t b/t/spec/S10-packages/basic.t
index f1dfacf..1e1a88c 100644
--- a/t/spec/S10-packages/basic.t
+++ b/t/spec/S10-packages/basic.t
@@ -4,7 +4,7 @@ use v6;
 
 use Test;
 
-plan 51;
+plan 52;
 
 regex fairly_conclusive_platform_error {:i ^\N*<<Null?>>}
 
@@ -206,6 +206,11 @@ eval_lives_ok q' module MapTester { (1, 2, 3).map: { $_ } } ',
     eval_lives_ok 'use LoadFromInsideAClass',
         'can "use" a class inside a class';
 
+    # RT #65738
+    use Foo;
+    use OverrideTest;
+    is test_ucfirst('moin'), 'Moin',
+        'overrides from one module do not affect a module that is loaded later on';
 }
 
 {
diff --git a/t/spec/packages/Foo.pm b/t/spec/packages/Foo.pm
index 3a2edc3..85856b5 100644
--- a/t/spec/packages/Foo.pm
+++ b/t/spec/packages/Foo.pm
@@ -4,3 +4,5 @@ use v6;
 class Foo;
 
 method foo { "foo" }
+
+sub ucfirst($thing) is export(:DEFAULT) { 'overridden ucfirst' }
diff --git a/t/spec/packages/OverrideTest.pm b/t/spec/packages/OverrideTest.pm
new file mode 100644
index 0000000..fc42130
--- /dev/null
+++ b/t/spec/packages/OverrideTest.pm
@@ -0,0 +1,5 @@
+module OverrideTest {
+    sub test_ucfirst($y) is export(:DEFAULT) {
+        ucfirst($y);
+    }
+}