Mon script perl retourne l'erreur suivant:
Prototype mismatch: sub XBase::Base::O_BINARY () vs none at (eval 7) line 1.
pouvez-vous me dire ce que ce message signifie?
La ligne en question etant #!/usr/bin/perl -w
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Paul Gaborit
À (at) Tue, 24 Feb 2009 11:13:59 +0300, Patrick écrivait (wrote):
Mon script perl retourne l'erreur suivant: Prototype mismatch: sub XBase::Base::O_BINARY () vs none at (eval 7) line 1. pouvez-vous me dire ce que ce message signifie?
Le message lui-même signifie que XBase::Base::O_BINARY a d'abord été déclarée comme une sub ne prenant aucun paramètre (le prototype ()) puis ensuite comme une simple sub (none - pas de prototype du tout).
La ligne en question etant #!/usr/bin/perl -w
L'erreur est en fait dans un block BEGIN au début du module XBase::Base qui déclare la sub O_BINARY alors qu'elle est déjà exportée par IO::File.
Supprimez le block BEGIN suivant : ---------------------------------------- ### I _Realy_ hate to have this code here! BEGIN { local $^W = 0; if ($^O =~ /mswin/i) { eval 'use Fcntl qw( O_BINARY )' } else { eval ' sub O_BINARY { 0 } ' } } ----------------------------------------
et ça devrait mieux fonctionner.
Éventuellement, signalez cette erreur au packageur de votre distribution et surtout à l'auteur du package Perl.
-- Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/> Perl en français - <http://perl.mines-albi.fr/>
À (at) Tue, 24 Feb 2009 11:13:59 +0300,
Patrick <patrick@lab.vectoris.fr> écrivait (wrote):
Mon script perl retourne l'erreur suivant:
Prototype mismatch: sub XBase::Base::O_BINARY () vs none at (eval 7) line 1.
pouvez-vous me dire ce que ce message signifie?
Le message lui-même signifie que XBase::Base::O_BINARY a d'abord été
déclarée comme une sub ne prenant aucun paramètre (le prototype ())
puis ensuite comme une simple sub (none - pas de prototype du tout).
La ligne en question etant #!/usr/bin/perl -w
L'erreur est en fait dans un block BEGIN au début du module
XBase::Base qui déclare la sub O_BINARY alors qu'elle est déjà
exportée par IO::File.
Supprimez le block BEGIN suivant :
----------------------------------------
### I _Realy_ hate to have this code here!
BEGIN { local $^W = 0;
if ($^O =~ /mswin/i) {
eval 'use Fcntl qw( O_BINARY )'
} else {
eval ' sub O_BINARY { 0 } '
}
}
----------------------------------------
et ça devrait mieux fonctionner.
Éventuellement, signalez cette erreur au packageur de votre
distribution et surtout à l'auteur du package Perl.
--
Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/>
Perl en français - <http://perl.mines-albi.fr/>
À (at) Tue, 24 Feb 2009 11:13:59 +0300, Patrick écrivait (wrote):
Mon script perl retourne l'erreur suivant: Prototype mismatch: sub XBase::Base::O_BINARY () vs none at (eval 7) line 1. pouvez-vous me dire ce que ce message signifie?
Le message lui-même signifie que XBase::Base::O_BINARY a d'abord été déclarée comme une sub ne prenant aucun paramètre (le prototype ()) puis ensuite comme une simple sub (none - pas de prototype du tout).
La ligne en question etant #!/usr/bin/perl -w
L'erreur est en fait dans un block BEGIN au début du module XBase::Base qui déclare la sub O_BINARY alors qu'elle est déjà exportée par IO::File.
Supprimez le block BEGIN suivant : ---------------------------------------- ### I _Realy_ hate to have this code here! BEGIN { local $^W = 0; if ($^O =~ /mswin/i) { eval 'use Fcntl qw( O_BINARY )' } else { eval ' sub O_BINARY { 0 } ' } } ----------------------------------------
et ça devrait mieux fonctionner.
Éventuellement, signalez cette erreur au packageur de votre distribution et surtout à l'auteur du package Perl.
-- Paul Gaborit - <http://perso.mines-albi.fr/~gaborit/> Perl en français - <http://perl.mines-albi.fr/>
Mihamina Rakotomandimby (R12y)
Paul Gaborit wrote:
Éventuellement, signalez cette erreur au packageur de votre distribution