Heh... the offending line is

-            my $loadstr = @args ? "use $mod" : "use $mod qw(@args)";
+            my $loadstr = @args ? "use $mod qw(@args)" : "use $mod";
[download]

Silly bug, sorry... thanks for the report! Corrected in the OP.

Thanks, but now I’m getting an error instead:

20:20 >perl -I. main.pl
Not a GLOB reference at pragmatic.pm line 26.
BEGIN failed--compilation aborted at main.pl line 12.

20:20 >
[download]

(Line 12 in my main.pl file is the first occurrence of use pragmatic Foo;)

Update: That was under Strawberry Perl 5.26.0, and I get the same error with Cygwin Perl 5.22.4. But Strawberry Perl 5.20.2 seems to be working correctly:

20:26 >perl main.pl
Foo::foo at line 13
main::foo at line 16
Foo::foo at line 19
main::foo at line 22
Foo::foo at line 25

20:26 >
[download]

(Those line numbers are correct in my main.pl file.)

Athanasius <°(((>< contra mundum

Iustus alius egestas vitae, eros Piratica,

If you insert

warn ${$stash}{$symbol},"\n";
[download]

before line 26, you see what happens. Version 5.20.2 displays

*main::foo
[download]

whereas v5.26.0 displays something like

CODE(0x123abc)
[download]

Sigh. The glob dereferencing to get at the code reference of a glob must have changed somewhere after 5.20.2, so I'll have to rewrite the symbol handling part. I'll update the OP as soon as this is done.

update: OP updated.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'

Not a GLOB reference at pragmatic.pm line 26.
[download]

Hmm. I don't do much Windows, but I have some VM machines of that on the shelf. I'll look into that. Thanks again.

perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'