| … | |
… | |
| 720 | } |
720 | } |
| 721 | |
721 | |
| 722 | length $data < 2**25 |
722 | length $data < 2**25 |
| 723 | or die "ERROR: bundle too large (only 32MB supported)\n"; |
723 | or die "ERROR: bundle too large (only 32MB supported)\n"; |
| 724 | |
724 | |
| 725 | my $varpfx = "bundle_" . substr +(Digest::MD5::md5_hex $data), 0, 16; |
725 | my $varpfx = "bundle"; |
| 726 | |
726 | |
| 727 | ############################################################################# |
727 | ############################################################################# |
| 728 | # output |
728 | # output |
| 729 | |
729 | |
| 730 | print "generating $PREFIX.h... " |
730 | print "generating $PREFIX.h... " |
