--- toast 2003/09/05 00:08:19 1.197 +++ toast 2003/09/09 01:19:04 1.198 @@ -1711,7 +1711,7 @@ for $component (split(/\//, $_)) { $dir ne "" && mkdir("$rootdir$dir", 0777) && - print("$myname: created directory $rootdir$dir"); + print("$myname: created directory $rootdir$dir\n"); $dir .= "/$component"; } $_ = "$rootdir$_"; @@ -2472,7 +2472,6 @@ sub purge(@) { my($name, $version, $build, @urls) = @_; - @urls && error; $build && error; for $name (allnames($name)) @@ -2677,7 +2676,7 @@ { my($name, $version, $build, @urls) = @_; ($name, $version, $build) = build($name, $version, undef, @urls) - if @urls || !isbuilt($name, $version, $build); + if !isbuilt($name, $version, $build); isarmed($name, $version, $build) && error(pkgname($name, $version, $build) . " is already armed");