Discussion :

[tlegentil]

Bonjour,

j'ai un bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
sub SOAP::Deserializer::typecast
{
         my ($self, $value, $name, $attrs, $children, $type) = @_;
         my $retval = undef;
         print ("type = $type\n");
         if ( $type eq "" ) #ici la ligne 65 :)
         {
                 $retval = "";
         }else{
                 if ( $type eq "{urn:iControl}Common.EnabledState" )
                 {
                         $retval = $value;
                 }
        }
         return $retval;
}

le problème est que $type est parfois vide, et j'ai donc l'erreur :
"Use of uninitialized value in concatenation (.) or string at (eval 113) line 65,

je vois pas comment palier ce problème

Merci pour votre aide !

Thomas

[Jedai]

Est-ce que $type peut-être égal à '0' légitimement ?

--
Jedai

[JakoJako]

Tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
if (defined($type))
{
... ton code ...
}

Ça devrait résoudre le problème.

J.

[thierry.chich]

Ce sont ces deux lignes qui osnt en cause, je pense.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  print ("type = $type\n");
  if ( $type eq "" ) #ici la ligne 65 :)

ton print de debug rajoute au warning.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if ((not defined $type) or ( $type eq "" )) #ici la ligne 65 :)
..

En perl 5.10, il y a un moyen de l'écrire en une commande, mais je ne me rappelle pas bien.