Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

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

by mje (Deacon)
on Nov 15, 2013 at 14:07 UTC ( #1062750=note: print w/ replies, xml ) Need Help??


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
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;

      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

        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;

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1062750]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2014-09-21 07:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (167 votes), past polls