mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

podwrapper: Ensure the input file is printed in some error messages.

Browse Source
This commit is contained in:
Richard W.M. Jones
2012-08-21 20:11:15 +01:00
parent e1e8b3a1cf
commit e89e180d2b
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
podwrapper.pl.in
View File

@@ -171,7 +171,7 @@ die "$progname: missing argument: podwrapper input.pod\n" unless @ARGV == 1;
my $input = $ARGV[0];
# There should be at least one output.
die "$progname: no output format specified. Use --man and/or --html and/or --text.\n"
die "$progname: $input: no output format specified. Use --man and/or --html and/or --text.\n"
unless defined $man || defined $html || defined $text;
# Default for $name and $section.
@@ -222,7 +222,7 @@ my $content = read_whole_file ($input);
# Perform @inserts.
foreach (@inserts) {
my @a = split /:/, $_, 2;
die "$progname: no colon in parameter of --insert\n" unless @a >= 2;
die "$progname: $input: no colon in parameter of --insert\n" unless @a >= 2;
my $replacement = read_whole_file ($a[0]);
$content =~ s/$a[1]/$replacement/ge;
}
@@ -230,7 +230,7 @@ foreach (@inserts) {
# Perform @verbatims.
foreach (@verbatims) {
my @a = split /:/, $_, 2;
die "$progname: no colon in parameter of --verbatim\n" unless @a >= 2;
die "$progname: $input: no colon in parameter of --verbatim\n" unless @a >= 2;
my $replacement = read_verbatim_file ($a[0]);
$content =~ s/$a[1]/$replacement/ge;
}