Parent Directory | Revision Log | Patch
revision 457 by dpavlin, Wed Jul 7 17:35:30 2004 UTC | revision 458 by dpavlin, Tue Sep 21 16:53:44 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 |