diff options
| author | saal | 2007-06-06 07:54:32 +0000 |
|---|---|---|
| committer | saal | 2007-06-06 07:54:32 +0000 |
| commit | 0931435ae6a27cfa5ae1f1bbc7a5c390c405231c (patch) | |
| tree | db04a11b83cfa6ecff2c93226f6820d853ca1750 /src/MTools/MState.pm | |
| parent | 826847df4489deb0b8b568dc8ec0685cbd078708 (diff) | |
| download | mtc-0931435ae6a27cfa5ae1f1bbc7a5c390c405231c.zip mtc-0931435ae6a27cfa5ae1f1bbc7a5c390c405231c.tar.gz mtc-0931435ae6a27cfa5ae1f1bbc7a5c390c405231c.tar.bz2 mtc-0931435ae6a27cfa5ae1f1bbc7a5c390c405231c.tar.xz | |
utilisation du constructeur de la classe mère
Diffstat (limited to 'src/MTools/MState.pm')
| -rw-r--r-- | src/MTools/MState.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/MTools/MState.pm b/src/MTools/MState.pm index bf7b9d4..0dfef7e 100644 --- a/src/MTools/MState.pm +++ b/src/MTools/MState.pm @@ -31,7 +31,7 @@ BEGIN sub new { my ($class, %options) = @_; - my $self = {}; + my $self = new MTools::MObjet (); bless $self, $class; $self -> {instance} = -1; my %events = %{$options {events}}; |