Implemented startup script registration command-line interface.

[udpgate.git] / src / bundle.pl

diff --git a/src/bundle.pl b/src/bundle.pl
index fdd252b..ba30a48 100755 (executable)
--- a/src/bundle.pl
+++ b/src/bundle.pl
@@ -42,6 +42,7 @@ print <<"EOH";
 GHashTable *bundle_hash_new(void)
 {
 static GHashTable *hash;
+/* Prefixed 32-bit network byte order file length. */
 EOH
 my @files;
 for my $pathname (@ARGV) {
@@ -57,6 +58,7 @@ for my $pathname (@ARGV) {
                        "filename"    =>$filename,
                        "filename_sym"=>$filename_sym,
                        };
+       $F=pack("N*",length($F)).$F;    # Prefix 32-bit network byte order file length.
        my $Fout=unpack "H*",$F;
        $Fout=~s/../0x$&,/g;
        $Fout=~s/(?:.....){1,16}/\t\t$&\n/g;