stuart: devel/kolab/Kolab Util.pm,1.3,1.4

[cvs at intevation.de]

Author: stuart

Update of /kolabrepository/devel/kolab/Kolab
In directory doto:/tmp/cvs-serv9148

Modified Files:
	Util.pm 
Log Message:
Fixed a bug in writeArray(), cleaned up quoting


Index: Util.pm
===================================================================
RCS file: /kolabrepository/devel/kolab/Kolab/Util.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Util.pm	12 May 2004 08:46:04 -0000	1.3
+++ Util.pm	12 May 2004 09:20:06 -0000	1.4
@@ -55,7 +55,7 @@
 our $VERSION = sprintf('%d.%02d', q$Revision$ =~ /(\d+)\.(\d+)/);
 
 # What delimits the template meta data
-sub KOLAB_META_END() { return "__END_KOLAB_META__"; }
+sub KOLAB_META_END() { return '__END_KOLAB_META__'; }
 
 sub trim
 {
@@ -75,13 +75,13 @@
     return %hash if !$file;
 
     my $fd;
-    return %hash if !($fd = IO::File->new($file, "r"));
+    return %hash if !($fd = IO::File->new($file, 'r'));
 
     my $key;
     while (<$fd>) {
         if (/^([^:#]+):+([^#]*)/) {
             $key = trim($1);
-            next if $key eq "";
+            next if $key eq '';
             $hash{$key} = trim($2);
         }
     }
@@ -98,13 +98,13 @@
     return @array if !$file;
 
     my $fd;
-    return @array if !($fd = IO::File->new($file, "r"));
+    return @array if !($fd = IO::File->new($file, 'r'));
 
     my $value;
     while (<$fd>) {
         if (/^([^#]+)/) {
             $value = trim($1);
-            next if $value eq "";
+            next if $value eq '';
             push @array, $value;
         }
     }
@@ -129,7 +129,7 @@
         }
         if (/^([^:#]+):+([^#]*)/) {
             $key = trim($1);
-            next if $key eq "";
+            next if $key eq '';
             $hash{$key} = trim($2);
         }
     }
@@ -164,7 +164,7 @@
     }
 
     my $fd;
-    return if !($fd = IO::File->new($file, "w"));
+    return if !($fd = IO::File->new($file, 'w'));
 
     foreach my $key (sort keys %hash) {
         print $fd "$key : $hash{$key}\n";
@@ -181,7 +181,7 @@
     }
 
     my $fd;
-    return if !($fd = IO::File->new($file, "r"));
+    return if !($fd = IO::File->new($file, 'w'));
 
     foreach my $item (sort @array) {
         print $fd "$item\n";