From: Tanaka Akira <akr@...17n.org>
Date: 2002-08-09T19:59:37+09:00
Subject: [ruby-dev:17966] Hash has default block?

$B$U$H!"$R$5$7$V$j$K(B($B0lG/$V$j$/$i$$(B?) AMarshal $B$K<j$rF~$l$F$$$F5$$K$J$C(B
$B$?$N$G$9$,!"(BHash $B$,(B default block $B$r;}$C$F$$$k$+$I$&$+$rH=Dj$9$kJ}K!$O(B
$B$J$$$b$N$G$7$g$&$+(B?

$B$R$H$D;W$$$D$$$?$N$O(B

class Hash                                                                                                                    def has_default_block?
    begin
      Marshal.dump(dup.clear)
    rescue TypeError
      return true
    end
    return false
  end
end

$B$H$f!<$b$N$J$s$G$9$,!"$3$l$O$"$^$j$K$"$s$^$j$G$9!#$b$A$C$H$^$7$JJ}K!$O(B
$B$J$$$b$N$G$7$g$&$+(B?
-- 
[$BEDCf(B $BE/(B][$B$?$J$+(B $B$"$-$i(B][Tanaka Akira]
$B!V$U$($m(B! $B$o$+$a$A$c$s:n@o$G$9$(C"=$B!W(B(Little Worker, $B7KM7@84](B)