Re: 81-lang-extensions.patch

[Raja R Harinath]

Hi,

Akim Demaille <address@hidden> writes:
> Raja R Harinath <address@hidden> writes:
[snip] 
> | Wouldn't this be more compact and readable without the loop?
> | 
> |   $lang_obj->ansi    ($options{'ansi'})    if exists $options{'ansi'};
> |   $lang_obj->autodep ($options{'autodep'}) if exists $options{'autodep'};
> |   $lang_obj->compile ($options{'compile'}) if exists $options{'compile'};
> |   # ...
> | 
> |   delete $options{$_} for (('ansi', 'autodep', 'compile', ...));
> |   complain(...) if (keys %options);
> 
> Oh yes, definitely! Thanks!
> 
> But in fact, this code is made to be killed soon: recent versions of
> Class::Struct finally (aah!) provide a `new' which accepts a hash to
> initialize the object.  We won't need this code, and probably we would
> need register_language either, just calls to `new'.

But, I thought the decision was to support Perl 5.005_03.  The version
of Class::Struct with that doesn't seem to support initialization by
passing a hash to 'new'.

- Hari
-- 
Raja R Harinath ------------------------------ address@hidden
"When all else fails, read the instructions."      -- Cahn's Axiom
"Our policy is, when in doubt, do the right thing."   -- Roy L Ash