http://www.perlmonks.org?node_id=1062750


in reply to Re^4: Useless use of a constant (ict) in void context
in thread Useless use of a constant (ict) in void context

That was cut and pasted from a windows terminal and it seems it cut the newline and replaced it with a space - I don't usually use Windows. Anyway, the code in question was not typed in by me.

If I comment out the "Package Test::Nowarnings;" line and retype it the problem goes away but I cannot see any difference between the original and what I typed. I'd run it through od if this wasn't Windows.

  • Comment on Re^5: Useless use of a constant (ict) in void context

Replies are listed 'Best First'.
Re^6: Useless use of a constant (ict) in void context
by taint (Chaplain) on Nov 15, 2013 at 14:16 UTC
    Speaking of "cut and paste", Is it remotely possible you have an embedded character in your code somewhere. High ASCII, a   ( ), bell, or some other such thing. That your editor doesn't show?

    Just a thought.

    --Chris

    #!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;
[reply]

      That is a possibility but when I view it with hexl-mode in emacs with the original line commented out and my retyped first line I don't see the difference:

      00000000: 2370 6163 6b61 6765 2054 6573 743a 3a4e  #package Test::N
00000010: 6f57 6172 6e69 6e67 733b 0a70 6163 6b61  oWarnings;.packa
00000020: 6765 2054 6573 743a 3a4e 6f57 6172 6e69  ge Test::NoWarni
00000030: 6e67 733b 0a0a 7573 6520 352e 3030 363b  ngs;..use 5.006;
00000040: 0a75 7365 2073 7472 6963 743b 0a75 7365  .use strict;.use
00000050: 2077 6172 6e69 6e67 733b 0a75 7365 2043   warnings;.use C
00000060: 6172 7020 2020 2020 2020 2020 2020 2020  arp

      [download]
[reply]
[d/l]

        Yea, I dunno. If it were me, and I suspected some such thing. I'd run it through some sort of filter; SED,AWK, or such. That'll strip (filter) out anything but "normal" alphanumeric (plain text) text. I'd have added Perl itself to that list. But given your current problems, that might not be as "foolproof". I've got one I whipped up years ago that'd work for you. But it'll only work on a *NIX box. You happen to have one of those handy?

        On an aside. I used to embed the BEL character strategically in the comment file in all my .zip files. It was a blast. It'd play a little ditty every time you opened (extracted) the file. It scared the $#it out of Windows users -- others too, for that matter. Because you can't see them -- not that anyone would even expect them to be there. I can be so evil, sometimes <maniacal laugh>.

        --Chris

        #!/usr/bin/perl -Tw
use Perl::Always or die;
my $perl_version = (5.12.5);
print $perl_version;
[reply]

In Section Seekers of Perl Wisdom