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


#! /bin/sh

set -x
if [ ! -r lib/A/B.pm6 ]; then
    mkdir -p lib/A
    echo 'class A { use A::B; }' > lib/A.pm6
    echo 'class A::B { has $!foo is rw; }' > lib/A/B.pm6
fi

perl6 --version
perl6 -Ilib -e 'use A; say "OK";'


+ '[' '!' -r lib/A/B.pm6 ']'
+ mkdir -p lib/A
+ echo 'class A { use A::B; }'
+ echo 'class A::B { has $!foo is rw; }'
+ perl6 --version
This is perl6 version 2015.09-273-g53969ab built on MoarVM version
2015.09-55-gf09c782
+ perl6 -Ilib -e 'use A; say "OK";'
Use of uninitialized value % of type Any in string context
Any of .^name, .perl, .gist, or .say can stringify undefined things,
if needed.  in any mop_up_and_check at src/Perl6/World.nqp:401
Potential difficulties:
    useless use of 'is rw' on $!foo
    at /home/tsmith/p6/tmp/lib/A/B.pm6:1
    ------> class A::B { has $!foo is rw⏏; }
      from :1
      from -e:1
OK

Reply via email to