my @known_types = ('deb');
my @known_access = ('http', 'ftp', 'file');
-my @typical_distributions = ('stable', 'unstable', 'frozen', 'non-US');
+my @typical_distributions = ('stable', 'unstable', 'testing', 'non-US');
my @typical_components = ('main', 'contrib', 'non-free');
my %known_access = map {($_,$_)} @known_access;
print "-" x 72, "\n";
&print_config('Config' => \@Oldconfig);
print "-" x 72, "\n";
- print "$boldon Do you wish to change it?[y/N]$boldoff ";
+ print "$boldon Do you wish to overwrite it? [y/N]$boldoff ";
my $answer = <STDIN>;
chomp ($answer);
$answer =~ s/\s+/ /og;