my $filename = "pod/$source";
my $contents = slurp_or_die($filename);
my @want =
- $contents =~ /perldelta - what is new for perl v(5)\.(\d+)\.(\d+)\n/;
+ $contents =~ /perldelta - what is new for perl v(5)\.(\d+)\.(\d+)\r?\n/;
die "Can't extract version from $filename" unless @want;
my $delta_leaf = join '', 'perl', @want, 'delta';
$state{delta_target} = "$delta_leaf.pod";
}
}
close $master or my_die("close pod/perl.pod: $!");
- # This has to be special-cased somewhere. Turns out this is cleanest:
- push @{$state{master}}, ['a2p', 'x2p/a2p.pod', {toc_omit => 1}];
my_die("perl.pod sets flags for unknown pods: "
. join ' ', sort keys %flag_set)
1;
-# Local variables:
-# cperl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
-#
# ex: set ts=8 sts=4 sw=4 et: