-our %dmy_subs = ( # strings to eval (after using regular expression returned by regexp below)
- # make arrays for POSIX::strftime()
- iso => '[(($6||0),($5||0),($4||0),$3, $2 - 1, $1 - 1900)]',
- metric => '[(($6||0),($5||0),($4||0),$1, $2 - 1, $3 - 1900)]',
- us => '[(($6||0),($5||0),($4||0),$2, $1 - 1, $3 - 1900)]',
- sql => '[(($6||0),($5||0),($4||0),$3, $2 - 1, $1 - 1900)]',
+our %dmy_subs = ( # strings to eval (after using regular expression returned by regexp below)
+ # make arrays for POSIX::strftime()
+ iso => '[(($6||0),($5||0),($4||0),$3, $2 - 1, $1 - 1900)]',
+ metric => '[(($6||0),($5||0),($4||0),$1, $2 - 1, $3 - 1900)]',
+ us => '[(($6||0),($5||0),($4||0),$2, $1 - 1, $3 - 1900)]',
+ sql => '[(($6||0),($5||0),($4||0),$3, $2 - 1, $1 - 1900)]',
+ rfc822 => '[($7, $6, $5, $2, $3, $4 - 1900, $8)]',