develooper Front page | perl.perl5.porters | Postings from October 1999

Re: PROPOSAL: D'oh::Year [was: Re: Making -DPERL_Y2KWARN useful after 946684800]

Thread Previous | Thread Next
From:
Michael G Schwern
Date:
October 31, 1999 16:03
Subject:
Re: PROPOSAL: D'oh::Year [was: Re: Making -DPERL_Y2KWARN useful after 946684800]
Message ID:
19991031184126.A3246@toldyouso.com
On Sun, Oct 31, 1999 at 01:59:41PM -0800, Gurusamy Sarathy wrote:
> On Sun, 31 Oct 1999 04:27:15 EST, Michael G Schwern wrote:
> >So I submit this as a candidate for inclusion into the core.  Everyone
> >screws up printing the year in Perl at some point, and it would be
> >nice to answer the "PERL HAS A Y2K BUG" posts on clpm with a simple
> >"go use this module".
> 
> Sure, but note that in general I don't consider that a particularly
> good reason for something to be in the core.  One can point to CPAN
> easily enough.

True 'nuff.

> As for the approach, I think extending B::Lint is a better route
> for catching things that can be caught at compile time.

<whine>Yeah, but that's so much more wooooork</whine>  *sigh* 
I'll look into it.  It might make writing D'oh::Files easier.


> >                       D'oh::Year not only deals with y2k bugs, but
> >also handles year mishandling I'll expect to see post-y2k along with
> >the potential to be expanded to handle other canonical date bugs.
> 
> IMHO, "20$yr" only has marginal value because that kind of mistake
> will be largely self-correcting and obvious, because people will get
> back "20101" rather than something that is temporarily correct.

Ahh, nature endevors long and hard to produce a better moron!  Expect
to see this post-y2k:  $year -= 100;  "200$year";   D'oh::Year catches both
misuses.


> And as long as I'm handing out free advice, D'oh:: is probably too
> cute to be comprehensible to vast numbers of people, if we ignore
> the fact that writing ' to mean :: is vaguely deprecated.

Yeah.  I'm considering Style::Date.


-- 

Michael G Schwern                                           schwern@pobox.com
                    http://www.pobox.com/~schwern
     /(?:(?:(1)[.-]?)?\(?(\d{3})\)?[.-]?)?(\d{3})[.-]?(\d{4})(x\d+)?/i

Thread Previous | Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About