The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
PerlBuildSystem-0.34
River stage zero No dependents
/ doc/pnw2004/pod2slide.pl

$title [@{[$slide_index+1]}/$number_of_slides] <<  ^  >> Copyright © $copyright
close(SLIDE_POD) ; my $md5 = 'error' ; if(open(FILE, "$out_dir$slide_file.pod")) { binmode(FILE); $md5 = Digest::MD5->new->addfile(*FILE)->hexdigest ; close(FILE) ; } my $previous_md5 = "doesn't exist" ; if(open(FILE, "$out_dir$slide_file.md5")) { $previous_md5 = ; } if($md5 ne $previous_md5) { $regenerated_slides++ ; print "Generating slide @{[$slide_index + 1]}: '$unmodified_slide_name' $undone_flag.\n" ; pod2html ( "--infile=$out_dir$slide_file.pod" , "--outfile=$out_dir$slide_file.html" , "--css" , "perl_style.css" , "--noindex" ) ; open(FILE, ">", "$out_dir$slide_file.md5") or die "can't open '$out_dir$slide_file.md5': $!" ; print FILE $md5 ; close FILE ; } else { print "Undone flag set for: '$unmodified_slide_name'.\n" if $undone_flag eq '*' ; } unlink("$out_dir$slide_file.pod") ; # Arfff! { open(FILE, "+<", "$out_dir$slide_file.html") or die "can't open '$out_dir$slide_file.html: $!" ; local $/ = undef ; my $text = ; $text =~ s~

~~ ; $text =~ s~\n

~

~g ; $text =~ s~

\n

~
~ ; seek(FILE, 0, 0) ; print FILE $text ; truncate(FILE, tell(FILE)) ; close(FILE) ; } $slide_file =~ s/^$out_dir// ; $index_text .= sprintf("%03d ", $slide_index + 1) ; $index_text .= "$unmodified_slide_name$undone_flag
\n\n" ; } # generate index print "Generating index => $number_of_slides/$regenerated_slides/$number_of_undone_slides\n" ; open INDEX, ">", "${out_dir}index_slide.html" or die "can't open '${out_dir}index_slide.html': $!" ; print INDEX <

$title

$index_text
$title Copyright © $copyright
EOHTML close INDEX ;

1 POD Error

The following errors were encountered while parsing the POD:

Around line 113:

'=end html EOHTML' is invalid. (Stack: =begin html)