[perl #129143] :DEFAULT tag in "use" directive prevents import from subsequent tags

[Brian S. Julin]

# New Ticket Created by  "Brian S. Julin" 
# Please include the string:  [perl #129143]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=129143 >



$ cat XX.pm6
unit module XX;

our sub fee() is export { }

our sub fie() is export(:tag1) { }

our sub foo() is export(:tag1 :tag2) { }

our sub fum() is export(:DEFAULT :tag3) { }

$ PERL6LIB=. perl6 -e 'use XX; fee()'
$ PERL6LIB=. perl6 -e 'use XX; fum()'
$ PERL6LIB=. perl6 -e 'use XX :tag1; foo()'
$ PERL6LIB=. perl6 -e 'use XX :tag2; foo()'
$ PERL6LIB=. perl6 -e 'use XX :tag2 :DEFAULT; foo()'
$ PERL6LIB=. perl6 -e 'use XX :DEFAULT :tag2; foo()'
===SORRY!=== Error while compiling -e
Undeclared routine:
    foo used at line 1

$ PERL6LIB=. perl6 -e 'use XX :tag2 :tag1; foo()'
$ PERL6LIB=. perl6 -e 'use XX :tag1 :tag2; foo()'
$ PERL6LIB=. perl6 -e 'use XX :DEFAULT :tag3; fum()'
$ PERL6LIB=. perl6 -e 'use XX :tag3 :DEFAULT; fum()'
$ PERL6LIB=. perl6 -e 'use XX :tag1 :DEFAULT :tag2; foo()'
$ PERL6LIB=. perl6 -e 'use XX :tag3 :DEFAULT :tag2; foo()'
===SORRY!=== Error while compiling -e
Undeclared routine:
    foo used at line 1