Re^6: Useless use of a constant (ict) in void context

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;

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

Replies are listed 'Best First'.
Re^7: Useless use of a constant (ict) in void context by mje (Curate) on Nov 15, 2013 at 14:26 UTC
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]
Re^8: Useless use of a constant (ict) in void context by taint (Chaplain) on Nov 15, 2013 at 14:53 UTC
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]