Mercurial > hg > octave-lyh
annotate scripts/@ftp/saveobj.m @ 14428:099bd779466c
test: Fix failing %!test in fileread.m
* fileread.m: Fix failing %!test.
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Fri, 02 Mar 2012 22:14:27 -0800 |
parents | 72c96de7a403 |
children | 1c89599167a6 |
rev | line source |
---|---|
14138
72c96de7a403
maint: update copyright notices for 2012
John W. Eaton <jwe@octave.org>
parents:
11589
diff
changeset
|
1 ## Copyright (C) 2009-2012 David Bateman |
9880 | 2 ## |
11104 | 3 ## This file is part of Octave. |
9880 | 4 ## |
11104 | 5 ## Octave is free software; you can redistribute it and/or modify it |
6 ## under the terms of the GNU General Public License as published by | |
7 ## the Free Software Foundation; either version 3 of the License, or (at | |
8 ## your option) any later version. | |
9 ## | |
10 ## Octave is distributed in the hope that it will be useful, but | |
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
13 ## General Public License for more details. | |
9880 | 14 ## |
15 ## You should have received a copy of the GNU General Public License | |
11104 | 16 ## along with Octave; see the file COPYING. If not, see |
17 ## <http://www.gnu.org/licenses/>. | |
9880 | 18 |
19 function b = saveobj (a) | |
20 b = a; | |
11589
b0084095098e
missing semicolons in script files
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
21 b = rmfield (b, "curlhandle"); |
9880 | 22 b.dir = __ftp_pwd (a.curlhandle); |
23 endfunction |