File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 11# !/usr/local/bin/perl
22#
3- # Insert Next, ToC & Prev links.
3+ # Insert Next, ToC, Prev, and other links.
44#
55# The given configuration file contains ordering and
6- # numbering information:
6+ # numbering information
77#
88# Bert Bos <bert@w3.org>
9- # $Id: mkchain,v 1.2 1998-02-02 19:06:19 bbos Exp $
9+ # $Id: mkchain,v 2.0 1998-02-02 19:19:08 bbos Exp $
1010
1111use Getopt::Std;
1212use lib ' bin' ;
Original file line number Diff line number Diff line change 1- # -*-perl-*-
1+ # A few common routines -*-perl-*-
2+ #
3+ # Bert Bos <bert@w3.org>
4+ # $Id: utils.pm,v 2.0 1998-02-02 19:19:15 bbos Exp $
25
36package utils ;
47require Exporter;
@@ -7,10 +10,9 @@ require Exporter;
710 $styletype @chapter @resetnumber @format %lookup $chapno @relations
811 @links @tonavbar $src_ext) ;
912
10- # @EXPORT_OK = qw();
13+ # @EXPORT_OK = qw(parsewords );
1114
1215
13- # use Text::ParseWords;
1416
1517$contents = ' ' ; # File containing ToC
1618$stylesheet = ' ' ; # URL of style sheet
Original file line number Diff line number Diff line change 11# !/usr/local/bin/perl
22#
3- # Insert Next, ToC & Prev links.
3+ # Insert Next, ToC, Prev, and other links.
44#
55# The given configuration file contains ordering and
6- # numbering information:
6+ # numbering information
77#
88# Bert Bos <bert@w3.org>
9- # $Id: mkchain,v 1.2 1998-02-02 19:06:19 bbos Exp $
9+ # $Id: mkchain,v 2.0 1998-02-02 19:19:08 bbos Exp $
1010
1111use Getopt::Std;
1212use lib ' bin' ;
Original file line number Diff line number Diff line change 1- # -*-perl-*-
1+ # A few common routines -*-perl-*-
2+ #
3+ # Bert Bos <bert@w3.org>
4+ # $Id: utils.pm,v 2.0 1998-02-02 19:19:15 bbos Exp $
25
36package utils ;
47require Exporter;
@@ -7,10 +10,9 @@ require Exporter;
710 $styletype @chapter @resetnumber @format %lookup $chapno @relations
811 @links @tonavbar $src_ext) ;
912
10- # @EXPORT_OK = qw();
13+ # @EXPORT_OK = qw(parsewords );
1114
1215
13- # use Text::ParseWords;
1416
1517$contents = ' ' ; # File containing ToC
1618$stylesheet = ' ' ; # URL of style sheet
You can’t perform that action at this time.
0 commit comments