in reply to RFC: pragma pragmatic

Hello shmem,

This package looks interesting, but unfortunately it doesn’t seem to work on Windows. I get:

13:50 >perl -I. main.pl
main::foo at line 5
main::foo at line 7
main::foo at line 9
main::foo at line 11
main::foo at line 13

16:37 >

[download]

Tested using:

under Windows 8.1, 64-bit.

:-(

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Replies are listed 'Best First'.
Re^2: RFC: pragma pragmatic
by shmem (Chancellor) on Aug 10, 2017 at 08:27 UTC

    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.

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

      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,

[reply]
[d/l]
[select]

        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'
[reply]
[d/l]
[select]
        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'
[reply]
[d/l]

In Section Meditations