Parent Directory | Revision Log | Patch
revision 383 by dpavlin, Wed Jul 7 17:34:42 2004 UTC | revision 384 by dpavlin, Wed Jul 7 20:58:58 2004 UTC | |
---|---|---|
# | Line 56 sub parse_iso_format { | Line 56 sub parse_iso_format { |
56 | my $f = $format; | my $f = $format; |
57 | ||
58 | my $eval; | my $eval; |
59 | $eval = $1 if ($f =~ s/^eval{([^}]+)}//); | $eval = $1 if ($f =~ s/^eval{([^}]+?)}//); |
60 | ||
61 | if ($f =~ s/^([^\d]+)//) { | if ($f =~ s/^([^\d]+)//) { |
62 | if ($f) { # there is more to parse | if ($f) { # there is more to parse |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |