X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=regress%2Fscripts%2Ffunctions.pm;h=0d7d5717a2f240be89fb777df284b5d9d5d6f26d;hb=8a78a4e72e5c0eea39ff4d85927e8ce26a14ebea;hp=a9774a5af1a277065aac5e538e049517e76f8a9a;hpb=b9c1740bcc20624bdc38fc20ae2a195f07cb9c7c;p=bacula%2Fbacula diff --git a/regress/scripts/functions.pm b/regress/scripts/functions.pm index a9774a5af1..0d7d5717a2 100644 --- a/regress/scripts/functions.pm +++ b/regress/scripts/functions.pm @@ -73,7 +73,7 @@ BEGIN { open(IN, ". ./config; set |") or die "Could not run shell: $!\n"; while ( my $l = ) { chomp ($l); - if ($l =~ /^([\w\d]+)=(.+)/) { + if ($l =~ /^([\w\d]+)='?([^']+)'?/) { next if ($1 eq 'SHELLOPTS'); # is in read-only ($envar,$enval) = ($1, $2); $ENV{$envar} = $enval; @@ -571,7 +571,7 @@ sub debug sub remote_config { open(FP, ">$REMOTE_FILE/bacula-fd.conf") or - die "ERROR: Can't open $REMOTE_FILE/bacula-fd.conf $?"; + die "ERROR: Can't open $REMOTE_FILE/bacula-fd.conf $!"; print FP " Director { Name = $HOST-dir