diff options
Diffstat (limited to 'scripts/MarkdownBook/Book.pm')
| -rw-r--r-- | scripts/MarkdownBook/Book.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/scripts/MarkdownBook/Book.pm b/scripts/MarkdownBook/Book.pm index 572fb53..4f30afb 100644 --- a/scripts/MarkdownBook/Book.pm +++ b/scripts/MarkdownBook/Book.pm @@ -116,7 +116,7 @@ sub create_documents # Create chapter documents. $i = 0; open($series_fh, '<', $self->{'dir'} . '/chapters') - or croak('Cannot open chapters file'); + or Carp::croak('Cannot open chapters file'); while (<$series_fh>) { chomp($_); ($file, $title) = split(/[ \t]+/, $_, 2); @@ -134,7 +134,7 @@ sub create_documents @letters = ('A' .. 'Z'); if (-e $self->{'dir'} . '/appendices') { open($series_fh, '<', $self->{'dir'} . '/apendices') - or croak('Cannot open appendices file'); + or Carp::croak('Cannot open appendices file'); while (<$series_fh>) { chomp($_); ($file, $title) = split(/[ \t]+/, $_, 2); @@ -198,13 +198,13 @@ sub _do_subst_macro return $self->_do_gen_toc(); } elsif ($macro eq 'sectlink') { if (@args != 1) { - carp('Invalid arguments to "sectlink" macro'); + Carp::carp('Invalid arguments to "sectlink" macro'); } else { $sec = $self->{'sections_by_id'}->{$args[0]}; return '[ยง ' . $sec->number() . '][' . $sec->id() . ']'; } } else { - carp("Unrecognized macro \"$macro\""); + Carp::carp("Unrecognized macro \"$macro\""); } } |