perl-goo-canvas: fixed