Salut à tous,

C'est mon premier message sur ce forum... je suis super ému.
Donc voilà, je ne suis pas expert en Perl, mais j'ai un truc qui me semble bizarre dans le code suivant.
La fonction getChangelistDescribe doit retourner un tableau $describe. Lorsque j'affiche la 1ere valeur de ce tableau dans la fonction, j'obtiens bien une valeur cohérente:

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
sub getChangelistDescribe($$)
{
	my $self   = shift;
	my $chg_no = shift;
	
	return if (!defined($chg_no));
	
	my $p4 = $self->P4Connect();
	my $describe = $p4->Run("describe", $chg_no);	
	print STDOUT "DESCR == @{$describe}[0]";
	return 0 if (!$self->GetP4Errors($p4, "changelist"));	
	$p4->Disconnect();
		
	return $describe;
}
Mais lorsque je demande d'afficher ce que retourne cette fonction, je n'obtiens rien ("DESCRIBE === " s'affiche):

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
18
19
20
21
22
sub insertReleaseNotes($$$)
{
	my $self       = shift;    
	my $p4profile  = shift;
	my $changelist = shift;
   
	return if (!defined($p4profile) ||
			   !defined($changelist));

	foreach my $change (@{$changelist})
	{
		#For each changelist, get a description
	my $describe = $p4profile->getChangelistDescribe($change);

		my %infos;
		# If the description exists
		if (defined($describe))
		{
			print STDOUT "\n DESCRIBE === @{$describe}[0]";
...
...
Quelqu'un voit il une erreur là-dedans ?
Merci d'avance

K.