--- Alternative.pm	2002/02/11 14:26:22	1.1
+++ Alternative.pm	2002/02/11 14:33:42	1.2
@@ -20,7 +20,7 @@
 #my @affix_add;
 #my @affix_sub;
 
-my $debug=1;
+my $debug=0;
 
 # stub
 
@@ -29,6 +29,7 @@
 	my $self = {};
 	bless($self, $class);
 	$self->{ARGS} = {@_};
+	$debug = $self->{ARGS}->{DEBUG};
 	$self ? return $self : return undef;
 }
 
@@ -156,6 +157,8 @@
 
 The new() constructor (without parameters) create container for new
 language.
+Only parametar it supports is DEBUG which turns on (some) debugging
+output.
 
 =item load_affix