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
- APP_VER=`cat package-version.txt`
23
- echo "Releasing $APP_VER"
24
- git tag "$APP_VER"
25
-
- git push --tags https://root:$GIT_TOKEN@gitlab.blockstackers.net/$CI_PROJECT_PATH.git HEAD:main
26
- curl -u token:${WOK_TOKEN} -F "author=MADCAT" -F "dist=@Multiformats-${APP_VER}.tar.gz" https://wok.blockstackers.net/upload
27
# FIXME FIXME: push to PAUSE; we're not using dzil release because reasons
28
# - echo "user $PAUSE_USER" > pause.cfg
···
22
- APP_VER=`cat package-version.txt`
23
- echo "Releasing $APP_VER"
24
- git tag "$APP_VER"
25
+
- git push --tags https://global-token:$GIT_TOKEN@gitlab.blockstackers.net/$CI_PROJECT_PATH.git HEAD:$CI_DEFAULT_BRANCH
26
- curl -u token:${WOK_TOKEN} -F "author=MADCAT" -F "dist=@Multiformats-${APP_VER}.tar.gz" https://wok.blockstackers.net/upload
27
# FIXME FIXME: push to PAUSE; we're not using dzil release because reasons
28
# - echo "user $PAUSE_USER" > pause.cfg
+2
-2
README.md
+2
-2
README.md
···
4
5
Consider this entire package experimental, things **will** break.
6
7
-
## Github is not the primary repository
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 ;)
···
4
5
Consider this entire package experimental, things **will** break.
6
7
+
## Tangled is not the primary repository
8
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
62
while($expect_next) {
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);
66
$x += ($next_byte & 0b01111111) << (7 * $num_bytes_read);
67
$expect_next = ($next_byte >> 7 == 0b1) ? 1 : undef;
68
$num_bytes_read += $bread;
···
61
62
while($expect_next) {
63
die 'Multiformats::Varint::varint_decode_stream: no next byte to read' if $stream->eof;
64
+
my $raw_byte;
65
+
my $bread = $stream->read($raw_byte, 1);
66
+
my $next_byte = unpack('C', $raw_byte);
67
$x += ($next_byte & 0b01111111) << (7 * $num_bytes_read);
68
$expect_next = ($next_byte >> 7 == 0b1) ? 1 : undef;
69
$num_bytes_read += $bread;