# New Ticket Created by equinox # Please include the string: [perl #125494] # in the subject line of all future correspondence about this issue. # <URL: https://rt.perl.org/Ticket/Display.html?id=125494 >
Hi, see https://gist.github.com/jaffa4/11847e6d373f9ddfba34 Execute it perl6-m.bat Long.pm6 You will get here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1021 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1026 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1027 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1029 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1036 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1041 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1043 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1052 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1054 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1055 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1060 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1064 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1066 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1084 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1086 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1111 here D:\m\p6\getopt_LONG\lib\Getopt\Long.pm6: 1113 There should a be 1122.. line too it fails before that silently. It seems to fail because of reverse ifs.. print STDERR ("=> found ", OptCtl($ctl), " for \"", $opt, "\"\n") if $debug; if I change this if... (refactor so that if is in front) more is printed .... These are tracing statements. Jaffa4