From f8fa3e3f40eb5dec79c42398c030dd80ed3aad12 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=BCdiger=20Timm?= <rt@openoffice.org>
Date: Thu, 21 Feb 2008 14:02:29 +0000
Subject: [PATCH] #i10000# Handle case of milestones without any integrated
 childworkspaces.

---
 solenv/bin/modules/Cws.pm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/solenv/bin/modules/Cws.pm b/solenv/bin/modules/Cws.pm
index 5f966454283f..3bff5d61652d 100755
--- a/solenv/bin/modules/Cws.pm
+++ b/solenv/bin/modules/Cws.pm
@@ -4,9 +4,9 @@
 #
 #   $RCSfile: Cws.pm,v $
 #
-#   $Revision: 1.22 $
+#   $Revision: 1.23 $
 #
-#   last change: $Author: rt $ $Date: 2008-02-18 09:12:51 $
+#   last change: $Author: rt $ $Date: 2008-02-21 15:02:29 $
 #
 #   The Contents of this file are made available subject to
 #   the terms of GNU Lesser General Public License Version 2.1.
@@ -679,8 +679,11 @@ sub get_integrated_cws
     my $master    = shift;
     my $milestone = shift;
 
-    return wantarray ? @{$self->get_childworkspaces_for_milestone($master, $milestone)}
-                     :   $self->get_childworkspaces_for_milestone($master, $milestone);
+    my $childworkspaces_arrref = $self->get_childworkspaces_for_milestone($master, $milestone);
+    if ( !$childworkspaces_arrref ) {
+        $childworkspaces_arrref = [];
+    }
+    return wantarray ? @$childworkspaces_arrref : $childworkspaces_arrref;
 }