develooper Front page | perl.perl5.porters | Postings from May 2008

[perl #53806] No complain about bareword

Thread Next
Ronald Fischer
May 7, 2008 03:13
[perl #53806] No complain about bareword
Message ID:
# New Ticket Created by  Ronald Fischer 
# Please include the string:  [perl #53806]
# in the subject line of all future correspondence about this issue. 
# <URL: >

I found this error in Perl 5.8.8 for Cygwin (which is the most recent
Cygwin Perl
at the moment), and in Perl 5.8.7 for Solaris (which is a bit outdated,
as I have
to admit). The error goes like this:

No error is issued on the following program:

   perl -w -e 'use strict; print(Does::Not::Exist,"\n")'

Instead, "Does::Not::Exist" is printed. Similarily, the program

   perl -w -e 'use strict; system(Does::Not::Exist,"\n")'

results in the message

   Can't exec "Does::Not::Exist": No such file or directory at -e line

which too seems to suggest that Does::Not::Exist is simply interpreted
as string. But when I use it like this:

   perl -w -e 'use strict; print(ref(Does::Not::Exist),"\n")'

I get the reasonable message:

   Bareword "Does::Not::Exist" not allowed while "strict subs" in use at
   -e line 1. 

Ronald Fischer <>
+  If a packet hits a pocket on a socket on a port, 
+  and the bus is interrupted and the interrupt's not caught,
+  then the socket packet pocket has an error to report.
+		(cited after Peter van der Linden)

Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About