- chdir $srcdir;
- opendir(INDIR,$srcdir) || die "Can't open directory: $!";
+ chdir $srcdir or die "Can't chdir to '$srcdir': $!\n";
+ open my $indir, '.' or die "Can't read '.' in $srcdir: $!\n";