A question for people who DO code in Perl

ecchi · 2014-08-18, 05:20 AM

Does the following line in Perl make sense to you? And has Perl changed so that it used to be OK but is not any longer?

Code:

if ($temp eq '<!--#qwert93692mnbvc *-article-* copyright -->'){&ARTICLE};

The reason I am asking is that I have been using it in a script on several sites for years and it has worked fine. The script suddenly stopped working on one server, and the hosting company claim that there is NOTHING WRONG WITH THEIR PERL ENGINE, but that this line is faulty, and causing the script to time out.

To me this makes no sense, but before I call them idiots I thought I had better check that it is not me who is the idiot!

2014-08-18, 05:20 AM	#1
ecchi Banned Join Date: Oct 2003 Location: About to be evicted!!!! Posts: 4,082	A question for people who DO code in Perl Does the following line in Perl make sense to you? And has Perl changed so that it used to be OK but is not any longer? Code: if ($temp eq '<!--#qwert93692mnbvc -article- copyright -->'){&ARTICLE}; The reason I am asking is that I have been using it in a script on several sites for years and it has worked fine. The script suddenly stopped working on one server, and the hosting company claim that there is NOTHING WRONG WITH THEIR PERL ENGINE, but that this line is faulty, and causing the script to time out. To me this makes no sense, but before I call them idiots I thought I had better check that it is not me who is the idiot!