Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
emulab
emulab-devel
Commits
d24b3f9e
Commit
d24b3f9e
authored
Sep 08, 2004
by
Leigh B. Stoller
Browse files
Minor bug fix; make sure that topomap files are removed before trying
to create them with a perl open() call.
parent
9b8f4519
Changes
1
Hide whitespace changes
Inline
Side-by-side
tbsetup/gentopofile.in
View file @
d24b3f9e
...
...
@@ -91,8 +91,8 @@ if ($impotent) {
$OUT
=
*STDOUT
;
}
else
{
open
(
MAP
,
"
>
$toponame
")
or
die
("
Could not create
$toponame
: $!
\n
");
open
(
MAP
,
"
>
$
{
toponame
}
.new
")
or
die
("
Could not create
$
{
toponame
}
.new
: $!
\n
");
$OUT
=
*MAP
;
}
...
...
@@ -175,11 +175,13 @@ foreach my $lan (sort keys(%lans)) {
if
(
!
$impotent
)
{
close
(
MAP
);
system
("
mv -f
${toponame}
.new
$toponame
");
#
# Create a compressed copy of the file. The experiment nodes will look
# for this first, so as to reduce the amount of data served up via NFS.
#
system
("
cat
$toponame
| gzip >
${toponame}
.gz
");
system
("
rm -f
${toponame}
.gz ;
cat
$toponame
| gzip >
${toponame}
.gz
");
#
# Now copy over to the user exp directory since in a normal create/modify
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment