Show
Ignore:
Timestamp:
06/08/05 21:55:10 (4 years ago)
Author:
autrijus
svk:copy_cache_prev:
6052
Message:

* cosmetic fixes to code to agree with the slides. ;)

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Types/Hash.hs

    r4102 r4463  
    122122    hash_fetchVal sv key = do 
    123123        keySV   <- fromVal $ castV key 
    124         evalPerl5Sub "sub { $_[0]->{$_[1]} }" [sv, keySV] 
     124        perl5EvalApply "sub { $_[0]->{$_[1]} }" [sv, keySV] 
    125125    hash_clear sv = do 
    126         evalPerl5Sub "sub { undef %{$_[0]} }" [sv] 
     126        perl5EvalApply "sub { undef %{$_[0]} }" [sv] 
    127127        return () 
    128128    hash_storeVal sv key val = do 
    129129        keySV   <- fromVal $ castV key 
    130130        valSV   <- fromVal val 
    131         evalPerl5Sub "sub { $_[0]->{$_[1]} = $_[2] }" [sv, keySV, valSV] 
     131        perl5EvalApply "sub { $_[0]->{$_[1]} = $_[2] }" [sv, keySV, valSV] 
    132132        return () 
    133133    hash_fetchKeys sv = do 
    134         keysSV  <- evalPerl5Sub "sub { join $/, keys %{$_[0]} }" [sv] 
     134        keysSV  <- perl5EvalApply "sub { join $/, keys %{$_[0]} }" [sv] 
    135135        keysStr <- fromVal keysSV 
    136136        return $ lines keysStr 
    137137    hash_deleteElem sv key = do 
    138138        keySV   <- fromVal $ castV key 
    139         evalPerl5Sub "sub { delete $_[0]->{$_[1]} }" [sv, keySV] 
     139        perl5EvalApply "sub { delete $_[0]->{$_[1]} }" [sv, keySV] 
    140140        return () 
    141141    hash_isEmpty sv = do 
    142         fromVal =<< evalPerl5Sub "sub { !!%{$_[0]} }" [sv] 
     142        fromVal =<< perl5EvalApply "sub { !!%{$_[0]} }" [sv]