[interchange-cvs] interchange - heins modified
code/UI_Tag/write_relative_file.coretag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Tue Jun 8 00:11:36 EDT 2004
User: heins
Date: 2004-06-08 04:11:36 GMT
Modified: code/UI_Tag write_relative_file.coretag
Log:
* Ensure compatibility with the many write_relative_file() calls in
custom UserTag and UI applications.
Revision Changes Path
1.6 +4 -0 interchange/code/UI_Tag/write_relative_file.coretag
rev 1.6, prev_rev 1.5
Index: write_relative_file.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/write_relative_file.coretag,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- write_relative_file.coretag 8 Jun 2004 03:01:54 -0000 1.5
+++ write_relative_file.coretag 8 Jun 2004 04:11:35 -0000 1.6
@@ -19,6 +19,10 @@
sub {
my ($file, $opt, $data) = @_;
#::logDebug("writing $file");
+ unless(defined $data) {
+ $data = $opt;
+ $opt = {};
+ }
return undef unless Vend::File::allowed_file($file, 1);
$opt->{auto_create_dir} = 1 unless defined $opt->{auto_create_dir};
Vend::File::writefile(">$file", $data, $opt);
More information about the interchange-cvs
mailing list