[TWiki-Dev] [SVN] r4176 - twiki/branches/DEVELOP/lib/TWiki

[<Sve...@nt...>]

Author: SvenDowideit
Date: 2005-04-30 00:07:32 -0700 (Sat, 30 Apr 2005)
New Revision: 4176

Modified:
   twiki/branches/DEVELOP/lib/TWiki/Store.pm
Log:
StoreTests: added ability to create an empty web

Modified: twiki/branches/DEVELOP/lib/TWiki/Store.pm
===================================================================
--- twiki/branches/DEVELOP/lib/TWiki/Store.pm	2005-04-30 05:03:51 UTC (rev 4175)
+++ twiki/branches/DEVELOP/lib/TWiki/Store.pm	2005-04-30 07:07:32 UTC (rev 4176)
@@ -1265,7 +1265,7 @@
 
     # copy topics from base web
     my @topicList = $this->getTopicNames( $baseWeb );
-    unless( $baseWeb =~ /^_/ ) {
+    unless ((defined $baseWeb) && ( $baseWeb =~ /^_/ )) {
         # not a system web, so filter for only Web* topics
         @topicList = grep { /^Web/ } @topicList;
     }