Probleme mit Socket-Initialisierung in Verbindung mit "strict"

[Claudio]

Hallo,

ich habe ein Perl-Skript mit Socketunterstützung geschrieben.

Mein Skript funktioniert auch sehr gut, wenn ich aber ein "use strict" verwende, bekomme ich in folgender Zeile:

$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                PeerPort => $remote_port,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM);

folgende Fehlermeldung:

"Bareword "SOCK_STREAM" not allowed while "strict subs" in use at /home/..... line 103.

Was gilt es zu tun ?

Viele Gruesse und danke im voraus,

Claudio

[Struppi]

$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                PeerPort => $remote_port,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM);

folgende Fehlermeldung:

"Bareword "SOCK_STREAM" not allowed while "strict subs" in use at /home/..... line 103.

Wo kommt der Wert SOCK_STREAM her?
Soll der von dem Modul importiert werden?

Struppi.

[Claudio]

Hi Struppi,

Danke für Deine Hilfe - das Problem ist inzwischen gelöst.

Ich verwende verschiedene Bibliotheken, die ich miteinander verknüpfe - heirbei muß irgendwie der Fehler gelegen haben - er kommt jedefalls nicht mehr.

Gruss,

Claudio

$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                PeerPort => $remote_port,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM);

folgende Fehlermeldung:

"Bareword "SOCK_STREAM" not allowed while "strict subs" in use at /home/..... line 103.

Wo kommt der Wert SOCK_STREAM her?
Soll der von dem Modul importiert werden?

Struppi.