white space cosmetics.

fix copyright.

4 files changed, 21 insertions, 21 deletions

diff --git a/fml/lib/IO/Adapter/DBI.pm b/fml/lib/IO/Adapter/DBI.pm
index 07b5ad9c..35d8c012 100644
--- a/fml/lib/IO/Adapter/DBI.pm
+++ b/fml/lib/IO/Adapter/DBI.pm
@@ -1,9 +1,9 @@
 #-*- perl -*-
 #
-# Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi
+# Copyright (C) 2000,2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi
 #          All rights reserved.
 #
-# $FML: DBI.pm,v 1.33 2005/08/17 12:08:47 fukachan Exp $
+# $FML: DBI.pm,v 1.34 2005/08/23 08:38:22 fukachan Exp $
 #
 
 package IO::Adapter::DBI;
@@ -138,14 +138,14 @@ sub open
     my $password   = $self->{ _sql_password} || '';
     my $last_error = '';
     my $dbh        = undef;
- 
+
   DSN:
     for my $dsn (@$dsn_list) {
 	print STDERR "open $dsn\n" if $debug;
 
 	# try to connect
 	use DBI;
-	$dbh = DBI->connect($dsn, $user, $password, { 
+	$dbh = DBI->connect($dsn, $user, $password, {
 	    RaiseError => 1,
 	    AutoCommit => 0,
 	});
@@ -291,7 +291,7 @@ sub _fetch_all
 {
     my ($self, $args) = @_;
     my $config = $self->{ _config };
-    my $query  = 
+    my $query  =
 	$config->{ sql_query_get_next_key } || $config->{ sql_get_next_key };
 
     $self->execute({ query => $query });
@@ -422,7 +422,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2000,2001,2002,2003,2004,2005 Ken'ichi Fukamachi
+Copyright (C) 2000,2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/IO/Adapter/File.pm b/fml/lib/IO/Adapter/File.pm
index 0e319129..949b4c35 100644
--- a/fml/lib/IO/Adapter/File.pm
+++ b/fml/lib/IO/Adapter/File.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
+#  Copyright (C) 2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: File.pm,v 1.60 2004/08/14 05:02:00 fukachan Exp $
+# $FML: File.pm,v 1.61 2005/05/27 03:03:40 fukachan Exp $
 #
 
 package IO::Adapter::File;
@@ -641,7 +641,7 @@ For example, to set sequence number to the specified value $new_id:
 sub sequence_increment
 {
     my ($self, $args) = @_;
-    my $backup = sprintf("%s.%d.%d.%d.bak", 
+    my $backup = sprintf("%s.%d.%d.%d.bak",
 			 $args->{ file }, time, $$, $Counter++);
     my $file   = $args->{ file };
     my $id     = 0;
@@ -810,7 +810,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2001,2002,2003,2004,2005 Ken'ichi Fukamachi
+Copyright (C) 2001,2002,2003,2004,2005,2006 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/IO/Adapter/LDAP.pm b/fml/lib/IO/Adapter/LDAP.pm
index e223e6cc..c4cca91a 100644
--- a/fml/lib/IO/Adapter/LDAP.pm
+++ b/fml/lib/IO/Adapter/LDAP.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2005 Ken'ichi Fukamachi
+#  Copyright (C) 2005,2006 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML$
+# $FML: LDAP.pm,v 1.16 2005/08/23 08:42:42 fukachan Exp $
 #
 
 package IO::Adapter::LDAP;
@@ -75,7 +75,7 @@ sub open
 	for my $host (@servers) {
 	    my $ldap = Net::LDAP->new( $host ) or $self->error_set($@);
 	    if (defined $ldap) {
-		$self->{ _ldap } = $ldap; 
+		$self->{ _ldap } = $ldap;
 		my $mesg = $ldap->bind($root, password => $password);
 		$mesg->code && $self->error_set($mesg->error);
 		return $mesg;
@@ -292,13 +292,13 @@ sub _fetch_all
     my $attr   = $config->{ "ldap_query_${mode}_result_attribute" };
     my $filter = $config->{ "ldap_query_${mode}_search_filter" };
 
-    my $mesg = $ldap->search(base   => $root, 
+    my $mesg = $ldap->search(base   => $root,
 			     filter => $filter,
 			     attrs  => [ $attr ] );
-    $mesg->code && $self->error_set($mesg->error);    
+    $mesg->code && $self->error_set($mesg->error);
 
     my $a = [];
-    for my $entry ($mesg->entries) { 
+    for my $entry ($mesg->entries) {
 	my $r = $entry->get_value($attr, asref => 1) || [];
 	push(@$a, @$r);
     }
@@ -435,7 +435,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2005 Ken'ichi Fukamachi
+Copyright (C) 2005,2006 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.
diff --git a/fml/lib/IO/Adapter/PCRE.pm b/fml/lib/IO/Adapter/PCRE.pm
index 131878cc..5a440ba5 100644
--- a/fml/lib/IO/Adapter/PCRE.pm
+++ b/fml/lib/IO/Adapter/PCRE.pm
@@ -1,10 +1,10 @@
 #-*- perl -*-
 #
-#  Copyright (C) 2005 Ken'ichi Fukamachi
+#  Copyright (C) 2005,2006 Ken'ichi Fukamachi
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: PCRE.pm,v 1.1 2005/12/08 10:05:58 fukachan Exp $
+# $FML: PCRE.pm,v 1.2 2005/12/11 13:10:25 fukachan Exp $
 #
 
 package IO::Adapter::PCRE;
@@ -18,7 +18,7 @@ use IO::Adapter::ErrorStatus qw(error_set error error_clear);
 my $debug = 0;
 
 use IO::Adapter::File;
-push(@ISA, 'IO::Adapter::File'); 
+push(@ISA, 'IO::Adapter::File');
 
 
 =head1 NAME
@@ -158,7 +158,7 @@ Ken'ichi Fukamachi
 
 =head1 COPYRIGHT
 
-Copyright (C) 2005 Ken'ichi Fukamachi
+Copyright (C) 2005,2006 Ken'ichi Fukamachi
 
 All rights reserved. This program is free software; you can
 redistribute it and/or modify it under the same terms as Perl itself.