ReHello! =/

Est-il possible d'appeler 2 fois un module $blahblah = CGI->new(); ? Car dans l'execution de mon script, il se créé une erreur ou plutôt un conflit car, à mon avis, le package nuit à l'index puisque (c'est un script d'upload) les pages s'affichent correctement mais les données n'apparaissent plus et l'upload ne se fait plus...

Code du package:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
package Core;
use strict;
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser);
[...]

my $query = CGI->new();
my $ulog = $query->cookie(-name => "s2o-login");
my $pass = $query->cookie(-name => "s2o-pass");
[...]

Ca, c'est pour le package envoyé à index.cgi... Et dans index.cgi, j'ai

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
#!/usr/bin/perl
### s2o, oct 2007
use strict;
use DBI();
use CGI::Carp qw(fatalsToBrowser);
use lib '.';
use Core;
use HTML::Template;  
use CGI qw/:standard/;
use Digest::Perl::MD5 qw(md5_base64);

my $f;
my $cgi = CGI->new();

my $act = $cgi->param('act');
[...]
Et j'ai bien l'impression que ces 2 nouveaux objets CGI sont en conflit car si j'enlève le CGI->new(); du package en remplaçant les variables par des constantes, ça fonctionne!

Un idée?

Merci d'avance!