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
4f2eff6b
Commit
4f2eff6b
authored
Dec 19, 2000
by
Christopher Alfeld
Browse files
Fixed warnings.
parent
02f8cac3
Changes
1
Hide whitespace changes
Inline
Side-by-side
tbsetup/ir/libir.pm
View file @
4f2eff6b
...
...
@@ -38,14 +38,14 @@
# / seperated list and dirname returns the first n-1 components of
# a /seperated list (length n)
sub
libir
'tail {
split
('
\/
',
$_
[
0
]);
return
$
_
[
$
#
_
];
@t
=
split
('
\/
',
$_
[
0
]);
return
$
t
[
$#
t
];
}
sub
libir
'dirname {
local
(
$ret
);
split
('
\/
',
$_
[
0
]);
$ret
=
join
('
/
',
@
_
[
0
..
$
#
_
- 1]);
@t
=
split
('
\/
',
$_
[
0
]);
$ret
=
join
('
/
',
@
t
[
0
..
$#
t
-
1
]);
if
(
$ret
eq
"")
{
$ret
=
"
/
";
}
...
...
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