diff options
author | ribet | 2007-04-17 13:14:36 +0000 |
---|---|---|
committer | ribet | 2007-04-17 13:14:36 +0000 |
commit | 1a732fbc12938bf5626b0ae508bf2534424d7917 (patch) | |
tree | bce4717f2239f16bcd2b399c39b3b728317dbffb | |
parent | 28cd021a407dc73713f6ddb729a6a83ab5e93b4f (diff) | |
download | mtc-1a732fbc12938bf5626b0ae508bf2534424d7917.zip mtc-1a732fbc12938bf5626b0ae508bf2534424d7917.tar.gz mtc-1a732fbc12938bf5626b0ae508bf2534424d7917.tar.bz2 mtc-1a732fbc12938bf5626b0ae508bf2534424d7917.tar.xz |
Fixed variable name
-rwxr-xr-x | exemples/exemple_anti_recouvrement.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/exemples/exemple_anti_recouvrement.pl b/exemples/exemple_anti_recouvrement.pl index 4a6b9e4..dd27cb5 100755 --- a/exemples/exemple_anti_recouvrement.pl +++ b/exemples/exemple_anti_recouvrement.pl @@ -26,14 +26,14 @@ use MTools::Comp::MAntiRecouvrement; use StripAntiRecouvre; my $frame = new MTools (1280, 1024, "Test"); -my $antirecouvrementgroup = new MTools::Comp::MAntiRecouvrement (); +my $antirecouvrement = new MTools::Comp::MAntiRecouvrement (); my $strip1 = new StripAntiRecouvre (1, $frame, callsign => "AFR6845"); my $strip2 = new StripAntiRecouvre (1, $frame, callsign => "CTM5285"); my $strip3 = new StripAntiRecouvre (1, $frame, callsign => "AF850HJ"); my $strip4 = new StripAntiRecouvre (1, $frame, callsign => "DLH8285"); -$antirecouvrementgroup -> addObject($strip1); -$antirecouvrementgroup -> addObject($strip2); -$antirecouvrementgroup -> addObject($strip3); -$antirecouvrementgroup -> addObject($strip4); +$antirecouvrement -> addObject($strip1); +$antirecouvrement -> addObject($strip2); +$antirecouvrement -> addObject($strip3); +$antirecouvrement -> addObject($strip4); mrun; |