Merkwuerdiges Perl Problem ...

[ilb]

Hey,
hab da ein irres Problem mit Perl...
Ein Script funktioniert nicht mehr, obwohl ich es nicht bearbeitet habe und es vorher funktioniert hat.. Habe es jetz nochmal durchgeschaut und keinen Fehler entdeckt.
Es wird ein Fehler an dieser Stelle ausgegeben:

if($line =~ /hello/)

der code an der stelle sieht vorher und danach ca so aus:

$SOCKET = new IO::Socket::INET->new(PeerPort=>1498, Proto=>'tcp', PeerAddr=>$host);
    $line = '';
    $SOCKET->recv($line, 200);
    if($line ne '')
    {
	if($line =~ /hello/)
	{
	    $SOCKET->send("hello\r\n");
	    $SOCKET->recv($line, 200);

Sehr komisch find ich das...
Die Fehlermeldung is folgende:

Bareword found where operator expected at ./reseter.cgi line 88, near "if($line =~ /hello"

Hoffe ihr koennt mir helfen : )

 

[seven0fx]

hmm, hast du vielleicht irgendwie Perl auf deinem Rechner aktualisiert?
Ich habe hier ein Perl basierendes wiki laufen was nach einem Update von 5.8.8 auf 5.8.9 auch nicht mehr laufen wollte.

 

[troll]

Hö?
Probier mal mit nem Leerzeichen vor der schliessenden Klammer:
if($line =~ /hello/ )

 

[bsd-yusa]

bist du der root auf der maschine?

edit: ich vermute mal ganz wild dass die seite bei einem isp auf einem freebsd host liegt
und dieser prompt auf die aktuelle perl vulnerability reagiert hat?
ist ja erst seit gestern bekannt afair xD

 

[ilb]

hm die perl version ist v5.6.1
und das ganze rennt auf ner debian maschine. aktualisiert wurde wohl nicht.. bin echt verwirrt
aber wenn aktualisiert wurde, was is dann der fehler?

 

[ilb]

ok ist erledigt ...
da hat wohl jemand im script rumgefuscht und n Slash entfernt ....