Skip to content
Snippets Groups Projects
Commit c854f35a authored by Gerhard Gonter's avatar Gerhard Gonter :speech_balloon:
Browse files

changes on nbgg3

parent e45465ae
No related branches found
No related tags found
No related merge requests found
...@@ -84,13 +84,13 @@ sub usage ...@@ -84,13 +84,13 @@ sub usage
} }
my $file_size= $block_size*$mb_count; my $file_size= $block_size*$mb_count;
print "file_size=[$file_size]\n";
if (!-f $input || (stat(_))[7] < $file_size) if (!-f $input || (stat(_))[7] < $file_size)
{ # create input file if it does not exist or is too small { # create input file if it does not exist or is too small
my @cmd= ('dd', 'if=/dev/urandom', "of=$input", "bs=$block_size", "count=$mb_count"); my @cmd= ('dd', 'if=/dev/urandom', "of=$input", "bs=$block_size", "count=$mb_count");
print ">>> ", join (' ', @cmd), "\n"; print ">>> ", join (' ', @cmd), "\n";
system (@cmd); system (@cmd);
} }
print "file_size=[$file_size]\n";
unless (-d $output) unless (-d $output)
{ {
...@@ -161,7 +161,7 @@ while (1) ...@@ -161,7 +161,7 @@ while (1)
else else
{ {
my $rc= system (@c); my $rc= system (@c);
print join (' ', @c), ", rc='$rc'\n"; print join (' ', scalar localtime(time()), @c), ", rc='$rc'\n";
if ($rc) if ($rc)
{ {
print "copy return code=[$rc]; stopping\n"; print "copy return code=[$rc]; stopping\n";
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment