Useless use of bitwise and (&) in void context at (Allgemeines zu Perl)

Togad

2008-01-29 10:55

User since
2007-09-20
21 Artikel
BenutzerIn
[default_avatar]

Hi,

ich bekomme den Fehler: Useless use of bitwise and (&) in void context at line 110 at ....

Code (perl): (dl )

110:    &DatabaseMySQL( $handler )

Das Programm spuckt mir nach dieser "Fehlerzeile" auch den gewünschten Code aus.
Vorher hat es einwandfrei funktioniert, ich weiss nur leider nicht mehr was ich geändert habe... waren wieder ein paar Schritte zuviel :-| . Aber an der sub DatabaseMySQL [wo das Programm eigentlich garnichts zu suchen hat, so wie ich es aufrufe] habe ich nichts geändert.(glaube ich)
Kann mir einer sagen was dieser Fehler bedeutet, bzw es ist ja gar kein richtiger Fehler. Das Programm läuft ja.

renee

2008-01-29 11:16

User since
2003-08-04
14371 Artikel
ModeratorIn

Zeig mal ein paar Zeilen mehr!

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Togad

2008-01-29 11:29

User since
2007-09-20
21 Artikel
BenutzerIn
[default_avatar]

Von wo denn?

Wie gesagt, eigentlich sollte der garnicht in Zeile 110 rein. in Zeile 89 ist eine Sub, von der aus das Programm nach Zeile 491 Springt, da weiter geht bis 545, dort per Abfrage zur Zeile 393, in eine Sub (die er auch sonst ordnungsgemäß ausführt, und nach der sub, wird auch der exit Command ausgeführt, der wieder in Zeile 549 steht. Bei den 100ter Zeilen sollte der eigentlich garnichts machen.

backup.pl -develop Store

Code (perl): (dl )

89: &Parameters( $handler);
...


393: sub Store {
    my ($handler) = @_;
...


491: sub Parameters {
    my ($handler) = @_;
..
545:    $arg eq '-develop' and do {
            $arg = shift( @ARGV );
            no strict;
            &$arg( $handler );
            exit;
        };

Store wird ja sonst richtig ausgeführt. Was ist das eigentlich? bei einem Fehler würde der doch abbrechen, oder ist das wegen dem no strict, dass das Programm trotz Fehler ausgeführt wird?

renee

2008-01-29 11:32

User since
2003-08-04
14371 Artikel
ModeratorIn

Code rund um die Zeile 110 wäre sinnvoller gewesen. Mit den paar Fetzen kann man nicht wirklich was anfangen. Vielleicht kannst Du ja mal versuchen, ein "minimales" Programm zusammenzustellen, das den Fehler reproduziert.

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Togad

2008-01-29 11:52

User since
2007-09-20
21 Artikel
BenutzerIn
[default_avatar]

...
Ich habe ihn gefunden... er ist sogar in dem ersten Beitrag hier drin.

es Fehlte das ";"

trotzdem danke :-|