Fix creating format a digest file (IssueID #150).

Change.log

@@ -1,6 +1,7 @@
 CHANGE LOG
 
 1.3.12
+* Fix creating format a digest file.
 
 1.3.11
 * Add setting dpi 96 for slim, gdm.

install/calculate

@@ -4835,14 +4835,15 @@ sub packsystem{
 #------------------------------------------------------------------------------
 sub create_digests{
 	my $file = $_[0];
-	my $digests = "$file.DIGESTS";
 
-	`echo "# MD5 HASH" > $digests`;
+	my $name = $file; $name=~s/.*\/([^\/]+)$/$1/;
+	my $digests = "$file.DIGESTS";
 	my $hash = get_hash("openssl md5 $file");
-	`echo $hash >> $digests`;
-	`echo "# SHA1 HASH" >> $digests`;
+	`echo "# MD5 HASH" > $digests`;
+	`echo "$hash  $name" >> $digests`;
 	$hash = get_hash("openssl sha1 $file");
-	`echo $hash >> $digests`;
+	`echo "# SHA1 HASH" >> $digests`;
+	`echo "$hash  $name" >> $digests`;
 
 	return 1;
 }