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: Give an error if an --insert or --verbatim pattern is not found in the input.

Browse Source
This commit is contained in:
Richard W.M. Jones
2014-03-18 12:43:34 +00:00
parent 121c2894bc
commit d4129988c1
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
podwrapper.pl.in
View File

@@ -274,7 +274,10 @@ foreach (@inserts) {
my @a = split /:/, $_, 2;
die "$progname: $input: no colon in parameter of --insert\n" unless @a >= 2;
my $replacement = read_whole_file ($a[0]);
my $oldcontent = $content;
$content =~ s/$a[1]/$replacement/ge;
die "$progname: $input: could not find pattern '$a[1]' in input file\n"
if $content eq $oldcontent;
}
# Perform @verbatims.
@@ -282,7 +285,10 @@ foreach (@verbatims) {
my @a = split /:/, $_, 2;
die "$progname: $input: no colon in parameter of --verbatim\n" unless @a >= 2;
my $replacement = read_verbatim_file ($a[0]);
my $oldcontent = $content;
$content =~ s/$a[1]/$replacement/ge;
die "$progname: $input: could not find pattern '$a[1]' in input file\n"
if $content eq $oldcontent;
}
if ($strict_checks) {