my $curdir = Cwd::getcwd();
my $abspath = Cwd::abs_path($opts{sourcedir});
if (! -d $abspath || $abspath !~ /^\Q$curdir\E/) {
- error("Invalid or non-existing path to the source directory: ".$opts{sourcedir});
+ error("invalid or non-existing path to the source directory: ".$opts{sourcedir});
}
$this->{sourcedir} = File::Spec->abs2rel($abspath, $curdir);
}
# Push debhelper built-in buildsystems first
for my $name (@BUILDSYSTEMS) {
- error("Debhelper built-in buildsystem '$name' could not be found/loaded")
+ error("debhelper built-in buildsystem '$name' could not be found/loaded")
if not exists $buildsystems{$name};
push @buildsystems, $buildsystems{$name};
delete $buildsystems{$name};