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


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

As I said (and the error says) the suspect line is line 3 in Test::NoWarnings and it does contain use strict. I've pasted it below:

package Test::NoWarnings; use 5.006; use strict; use warnings;

Replies are listed 'Best First'.
Re^3: Useless use of a constant (ict) in void context
by hdb (Monsignor) on Nov 15, 2013 at 13:52 UTC

    Interestingly, line 3 is use 5.006;.

      If I delete the use 5.006; so it is now as below, it now gives:

      package Test::NoWarnings; use strict; use warnings; use Carp ();

      Useless use of a constant (rnings) in void context at I:/strawberry-perl-5.14.2. 1-32bit-portable/perl/vendor/lib/Test/NoWarnings.pm line 3.

      At the risk of sounding offensive (not intended). If you typed your code the way you typed your question:

      strawberry-perl-5.14.2.1-3 2bit-portable/perl/vendor
      (note the 2bit-portable).

      I'm inclined to go with Rolf (LanX), and suggest it was probably a typo.

      Again. No offense intended.

      --Chris

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

        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.