--- 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");