Commit 4f2eff6b authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Fixed warnings.

parent 02f8cac3
......@@ -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 = "/";
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment