while(readdir) doesn't auto-assign to $_
Also, make the informative output clear that its telling you like of files
it will be processing, rather than that its actually processing it now.
$_ = abs_from_top($_);
}
+# process command-line switches
+
{
my @files = keys %Targets;
my $filesopts = join(" | ", map { "--build-$_" } "all", sort @files);
);
if ($Verbose) {
- print "I'm building $_\n" foreach keys %Build;
+ print "I will be building $_\n" foreach keys %Build;
}
+
+# process pod.lst
+
open my $master, '<', $masterpodfile or die "$0: Can't open $masterpodfile: $!";
my ($delta_source, $delta_target);
}
opendir my $dh, abs_from_top('pod/');
- while (readdir $dh) {
+ while (defined ($_ = readdir $dh)) {
next unless /\.pod\z/;
push @disk_pods, $_;
++$disk_pods{$_};