Index: svn/Command.cls.xml
===================================================================
diff -u -r1558 -r1606
--- svn/Command.cls.xml (.../Command.cls.xml) (revision 1558)
+++ svn/Command.cls.xml (.../Command.cls.xml) (revision 1606)
@@ -137,6 +137,11 @@
"0"
+
+%String
+list
+
+
1
1
@@ -400,8 +405,9 @@
set File = ##class(%FileCharacterStream).%New()
set File.Filename = Filename
while 'File.AtEnd {
- set Line = File.ReadLine()
- write Line,!
+ #dim Line As %String = File.ReadLine()
+ do ..Errors.Insert(Line)
+ write Line,!
}
do ##class(%File).Delete(Filename)
]]>
@@ -469,6 +475,9 @@
CallOut
+
+Errors
+
GlobalOptions
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1604 -r1606
--- svn/Repository.cls.xml (.../Repository.cls.xml) (revision 1604)
+++ svn/Repository.cls.xml (.../Repository.cls.xml) (revision 1606)
@@ -150,6 +150,10 @@
set tCmdDelim="&"
set tSC=$$$OK
+ if svnCommand.Errors.Size {
+ do ##class(TECH.ListUtils).CopyListOfDataTypes(svnCommand.Errors,..Failed)
+ }
+
set tResult=svnCommand.Result
do tResult.Rewind()
while tResult.AtEnd=0 {