holidays-l開発ブログ - サブルーチンの上書きに誤りがありました。「undef &main::symbol」という書き方では、既存のサブルーチンを利用しつつ上書きする場合に問題がありました。 sub symbol { print "CODE\n"; } my $orig = main->can('symbol'); undef &…