class: CVSSourceCodeManager
authorClaus Gittinger <cg@exept.de>
Mon, 01 Dec 2014 13:48:35 +0100
changeset 3677 48ba20422b8d
parent 3676 51859e5df3b5
child 3678 a4ef1d7abbc4
class: CVSSourceCodeManager changed: #revisionLogOf:fromRevision:toRevision:numberOfRevisions:fileName:directory:module: #statusOf:fileName:directory:module: raise error on broken connection instead of simply returning nil.
CVSSourceCodeManager.st
--- a/CVSSourceCodeManager.st	Mon Dec 01 13:05:56 2014 +0100
+++ b/CVSSourceCodeManager.st	Mon Dec 01 13:48:35 2014 +0100
@@ -1492,7 +1492,7 @@
     rightPart := rightPart copyFrom:idx+1.
 
     "/ originalVersionString:
-    "/      '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.493 2014-11-28 19:06:20 cg Exp $'
+    "/      '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.494 2014-12-01 12:48:35 cg Exp $'
     "/ leftPart:
     "/      '$Header: /cvs/stx/stx/goodies/refactoryBrowser/lint/RBLiteralArrayContainsCommaRule.st,v'
     "/ dateAndTimePart:
@@ -4783,8 +4783,9 @@
                         log:true 
                         pipe:true.
 
-        inStream isNil ifTrue:[
-            ('CVSSourceCodeManager [error]: cannot open pipe to cvs log ', fullName) errorPrintCR.
+        (inStream isNil or:[inStream atEnd]) ifTrue:[
+            ('CVSSourceCodeManager [error]: cannot open pipe to "cvs log" ', fullName) errorPrintCR.
+            SourceCodeManagerError raiseRequestWith:'failed to open pipe to "cvs log"'.
             ^ nil
         ].
 
@@ -5476,8 +5477,9 @@
                         log:true 
                         pipe:true.
 
-        inStream isNil ifTrue:[
+        (inStream isNil or:[inStream atEnd]) ifTrue:[
             ('CVSSourceCodeManager [error]: cannot open pipe to cvs status ', fullName) errorPrintCR.
+            SourceCodeManagerError raiseRequestWith:'failed to open pipe to "cvs status"'.
             ^ nil
         ].
 
@@ -5543,11 +5545,11 @@
 !CVSSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.493 2014-11-28 19:06:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.494 2014-12-01 12:48:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.493 2014-11-28 19:06:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/CVSSourceCodeManager.st,v 1.494 2014-12-01 12:48:35 cg Exp $'
 ! !