[svn openjsan.org] [468] The html_dist does not exist during the upload process when finding the checksum

[ca...@geeknest.com]

Revision: 468
Author: cwest
Date: 2006-01-29 19:51:24 -0500 (Sun, 29 Jan 2006)

Log Message:
-----------
The html_dist does not exist during the upload process when finding the checksum

Modified Paths:
--------------
openjsan/trunk/lib/JSAN/Incoming.pm
Modified: openjsan/trunk/lib/JSAN/Incoming.pm
===================================================================
--- openjsan/trunk/lib/JSAN/Incoming.pm 2005-12-20 23:28:55 UTC (rev 467)
+++ openjsan/trunk/lib/JSAN/Incoming.pm 2006-01-30 00:51:24 UTC (rev 468)
@@ -533,7 +533,7 @@
sub _write_dist {
my ($self) = @_;
mkpath($self->html_dist_dir);
- io($self->html_dist) < $self->file->slurp;
+ io($self->html_dist)->print($self->file->slurp);
}

sub _setup_archive {
@@ -602,6 +602,7 @@
sub _get_dist_checksum {
my ($self) = @_;
my $dist_file = $self->html_dist;
+ $dist_file = $self->file->name unless -f $dist_file;
my $dist_data = io($dist_file)->slurp;
my $checksum = md5_hex($dist_data);
return $checksum;