← Back to branch summary

~ubuntu-branches/ubuntu/trusty/pdl/trusty-proposed

« back to all changes in this revision

Viewing changes to Doc/mkhtmldoc.pl

  • Committer: Package Import Robot
  • Author(s): Henning Glawe
  • Date: 2013-11-11 13:34:09 UTC
  • mfrom: (2.1.14 sid)
  • Revision ID: package-import@ubuntu.com-20131111133409-kjib7wtpms3kwusg
Tags: 1:2.007-2
http://bugs.debian.org/701335
http://bugs.debian.org/713346
* successfully built with gcc 4.8 (closes: #701335, #713346)
* add build log evalution helpers to source package: extract
  test suite output from buildlog, cross-refernce test/subtest
  failures between architectures
* use shell to join stderr into stdout while running test suite
* fix Dumper.pm on kfreebsd: 'gnukfreebsd' was assumed as a bsd
  userland, which disabled/broke calls to 'uuencode' and 'uudecode'
* fix debian/filter-test.pl, which cut the test log too early
  due to a too-unspecific regex
* prefer F77Conf over ExtUtils::F77 in t/flexraw_fortran.t in order
  to prevent test failures on kfreebsd* and hurd*

Show diffs side-by-side

added added

removed removed

Lines of Context:
Doc/mkhtmldoc.pl
134
134
        or die "ERROR: Unable to rename $outfile\n";
135
135
}
136
136
 
 
137
sub fix_pp_inline ($) {
 
138
    my $infile = shift;
 
139
    my $outfile = "${infile}.n";
 
140
    
 
141
    my $ifh = new IO::File "<$infile"
 
142
        or die "ERROR Unable to read from <$infile>\n";
 
143
    my $ofh = new IO::File ">$outfile"
 
144
        or die "ERROR: Unable to write to <$outfile>\n";
 
145
    
 
146
    # assume that links do not break across a line
 
147
    while ( <$ifh> ) {
 
148
        #fix the links
 
149
        s|a href="../Inline/Pdlpp.html"|a href="./PP-Inline.html"|g;
 
150
        print $ofh $_;
 
151
    }
 
152
    $ifh->close;
 
153
    $ofh->close;
 
154
    rename $outfile, $infile
 
155
        or die "ERROR: Unable to rename $outfile\n";
 
156
}
 
157
 
137
158
##############################################################
138
159
## Code
139
160
 
277
298
    hack_html( $outfile ) if $] < 5.006;
278
299
    fix_pdl_dot_html( $outfile);
279
300
    fix_html_path( $outfile);
 
301
    fix_pp_inline( $outfile);
280
302
 
281
303
    chdir $File::Find::dir; # don't confuse File::Find
282
304
};