[haver-commits] r411 - in trunk/main: common/lib/Haver server server/lib/Haver/Server

[haver]

Author: dylan
Date: 2004-12-14 19:28:33 -0500 (Tue, 14 Dec 2004)
New Revision: 411

Modified:
   trunk/main/common/lib/Haver/Protocol.pm
   trunk/main/server/Build.PL
   trunk/main/server/lib/Haver/Server/Object.pm
Log:
Changed my email address in a few places,
and also fixed a bug in event2line.



Modified: trunk/main/common/lib/Haver/Protocol.pm
===================================================================
--- trunk/main/common/lib/Haver/Protocol.pm     2004-11-27 17:47:52 UTC (rev 
410)
+++ trunk/main/common/lib/Haver/Protocol.pm     2004-12-15 00:28:33 UTC (rev 
411)
@@ -81,7 +81,7 @@
 
 sub event2line {
        my @event;
-       if (@_ > 1) {
+       if (@_ > 1 or not ref $_[0]) {
                @event = @_;
        } else {
                @event = @{$_[0]};

Modified: trunk/main/server/Build.PL
===================================================================
--- trunk/main/server/Build.PL  2004-11-27 17:47:52 UTC (rev 410)
+++ trunk/main/server/Build.PL  2004-12-15 00:28:33 UTC (rev 411)
@@ -1,10 +1,9 @@
 #!/usr/bin/perl
 use Module::Build;
 my $build = Module::Build->new(
-       module_name        => 'Haver::Server::POE',
-       dist_name          => 'haver-server-poe',
-       dist_version_from  => 'lib/Haver/Server/POE.pm',
-       dist_author        => 'Dylan William Hardison <[EMAIL PROTECTED]>',
+       module_name        => 'Haver::Server',
+       dist_version_from  => 'lib/Haver/Server.pm',
+       dist_author        => 'Dylan William Hardison <[EMAIL PROTECTED]>',
        dist_abstract      => 'POE-based simple chat server',
        license            => 'gpl',
        requires           => {
@@ -17,7 +16,4 @@
        create_makefile_pl => 'passthrough',
        script_files => [glob('bin/*.pl')],
 );
-
-$build->create_build_script;
-
-
+$build->create_build_script();

Modified: trunk/main/server/lib/Haver/Server/Object.pm
===================================================================
--- trunk/main/server/lib/Haver/Server/Object.pm        2004-11-27 17:47:52 UTC 
(rev 410)
+++ trunk/main/server/lib/Haver/Server/Object.pm        2004-12-15 00:28:33 UTC 
(rev 411)
@@ -432,7 +432,7 @@
 
 =head1 AUTHOR
 
-Dylan William Hardison, E<lt>[EMAIL PROTECTED]<gt>
+Dylan William Hardison, E<lt>[EMAIL PROTECTED]<gt>
 
 =head1 COPYRIGHT AND LICENSE