Absolute hinky bare-bones implementation of multiformats in Perl
angrydutchman.peedee.es
Compare changes
Choose any two refs to compare.
+1
-1
.gitlab-ci.yml
+1
-1
.gitlab-ci.yml
···
22
22
- APP_VER=`cat package-version.txt`
23
23
- echo "Releasing $APP_VER"
24
24
- git tag "$APP_VER"
25
-
- git push --tags https://root:$GIT_TOKEN@gitlab.blockstackers.net/$CI_PROJECT_PATH.git HEAD:main
25
+
- git push --tags https://global-token:$GIT_TOKEN@gitlab.blockstackers.net/$CI_PROJECT_PATH.git HEAD:$CI_DEFAULT_BRANCH
26
26
- curl -u token:${WOK_TOKEN} -F "author=MADCAT" -F "dist=@Multiformats-${APP_VER}.tar.gz" https://wok.blockstackers.net/upload
27
27
# FIXME FIXME: push to PAUSE; we're not using dzil release because reasons
28
28
# - echo "user $PAUSE_USER" > pause.cfg
+2
-2
README.md
+2
-2
README.md
···
4
4
5
5
Consider this entire package experimental, things **will** break.
6
6
7
-
## Github is not the primary repository
7
+
## Tangled is not the primary repository
8
8
9
-
If you're reading this on Github, keep in mind that this package is not developed here; the only code that lives here is the main branch, put here to allow others to access it easier. Development takes place on my personal Gitlab instance, which should also explain the `.gitlab-ci.yml` file ;)
9
+
If you're reading this on tangled, keep in mind that this package is not developed here; the only code that lives here is the main branch, put here to allow others to access it easier. Development takes place on my personal Gitlab instance, which should also explain the `.gitlab-ci.yml` file ;)
+3
-2
lib/Multiformats/Varint.pm
+3
-2
lib/Multiformats/Varint.pm
···
61
61
62
62
while($expect_next) {
63
63
die 'Multiformats::Varint::varint_decode_stream: no next byte to read' if $stream->eof;
64
-
my $next_byte;
65
-
my $bread = $stream->read($next_byte, 1);
64
+
my $raw_byte;
65
+
my $bread = $stream->read($raw_byte, 1);
66
+
my $next_byte = unpack('C', $raw_byte);
66
67
$x += ($next_byte & 0b01111111) << (7 * $num_bytes_read);
67
68
$expect_next = ($next_byte >> 7 == 0b1) ? 1 : undef;
68
69
$num_bytes_read += $bread;