--- toast 2003/10/13 05:15:58 1.216 +++ toast 2003/10/13 05:35:37 1.217 @@ -1207,19 +1207,20 @@ sub isname($) { my($name) = @_; - -d(pkgpath($name)); + defined($name) && -d(pkgpath($name)); } sub isversion($$) { my($name, $version) = @_; - -d(pkgpath($name, $version)); + defined($name) && defined($version) && -d(pkgpath($name, $version)); } sub isbuild($$$) { my($name, $version, $build) = @_; - -d(pkgpath($name, $version, $build)); + defined($name) && defined($version) && defined($build) && + -d(pkgpath($name, $version, $build)); } ############################################################################## @@ -3617,8 +3618,8 @@ for(@_) { my($name, $version, $build, @urls) = @$_; - error("no such package: ", pkgname($name, $version)) unless - defined($version) ? isversion($name, $version) : isname($name) + error("no such package: ", pkgname($name, $version)) + unless defined($version) ? isversion($name, $version) : isname($name); } @_; }