モダンPerl入門の脱字

読むだけ読んで実際に実行してなかったところをやってたらxsのところでエラーった。
30分悩んだ。

% make

Double.c: In function `XS_Double_calc_double':
Double.c:33: error: called object is not a function
make: *** [Double.o] Error 1

こんなエラーが出るんだ。
原因↓

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

MODULE = Double     PACKAGE = Double

int
calc_double(sv)
        SV *sv;
    PREINIT:
        int x;
    CODE:
        x = SvIV(sv);
-        RETVAL = x * 2
+        RETVAL = x * 2;
    OUTPUT:
        RETVAL

cなんだからセミコロンあって当然だろそんくらい気付けよググってもそこで詰まってるの俺だけじゃねーか