[interchange-cvs] interchange - racke modified 2 files
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Mon Nov 24 16:09:01 EST 2003
User: racke
Date: 2003-11-24 21:09:00 GMT
Modified: . WHATSNEW
Modified: lib/Vend File.pm
Log:
Limit data part of Vend::File:writefile error message to 120 characters in
order to avoid disk abuse, resolve scalar references.
Revision Changes Path
2.165 +3 -0 interchange/WHATSNEW
rev 2.165, prev_rev 2.164
Index: WHATSNEW
===================================================================
RCS file: /var/cvs/interchange/WHATSNEW,v
retrieving revision 2.164
retrieving revision 2.165
diff -u -r2.164 -r2.165
--- WHATSNEW 24 Nov 2003 16:09:40 -0000 2.164
+++ WHATSNEW 24 Nov 2003 21:09:00 -0000 2.165
@@ -20,6 +20,9 @@
The "province" profile check will now accept both NF and NL, but NF is now
deprecated and will be removed in a future release.
+* Limit data part of Vend::File:writefile error message to 120 characters in
+ order to avoid disk abuse, resolve scalar references.
+
UI
--
2.13 +3 -3 interchange/lib/Vend/File.pm
rev 2.13, prev_rev 2.12
Index: File.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/File.pm,v
retrieving revision 2.12
retrieving revision 2.13
diff -u -r2.12 -r2.13
--- File.pm 13 Nov 2003 15:12:49 -0000 2.12
+++ File.pm 24 Nov 2003 21:09:00 -0000 2.13
@@ -1,6 +1,6 @@
# Vend::File - Interchange file functions
#
-# $Id: File.pm,v 2.12 2003/11/13 15:12:49 racke Exp $
+# $Id: File.pm,v 2.13 2003/11/24 21:09:00 racke Exp $
#
# Copyright (C) 2002-2003 Interchange Development Group
# Copyright (C) 1996-2002 Red Hat, Inc.
@@ -53,7 +53,7 @@
use Vend::Util;
use subs qw(logError logGlobal);
use vars qw($VERSION @EXPORT @EXPORT_OK $errstr);
-$VERSION = substr(q$Revision: 2.12 $, 10);
+$VERSION = substr(q$Revision: 2.13 $, 10);
sub writefile {
my($file, $data, $opt) = @_;
@@ -109,7 +109,7 @@
$@,
$file,
$!,
- $data,
+ substr(ref($data) ? $$data : $data,0,120),
);
$status = 0;
}
More information about the interchange-cvs
mailing list