Parent Directory | Revision Log | Patch
revision 19 by dpavlin, Thu Dec 30 23:16:20 2004 UTC | revision 23 by dpavlin, Fri Dec 31 04:21:21 2004 UTC | |
---|---|---|
# | Line 520 sub to_hash { | Line 520 sub to_hash { |
520 | my $val; | my $val; |
521 | ||
522 | # has identifiers? | # has identifiers? |
523 | ($val->{'i1'},$val->{'i2'}) = ($1,$2) if ($l =~ s/^([01 #])([01 #])//); | ($val->{'i1'},$val->{'i2'}) = ($1,$2) if ($l =~ s/^([01 #])([01 #])\^/\^/); |
524 | ||
525 | # has subfields? | # has subfields? |
526 | if ($l =~ m/\^/) { | if ($l =~ m/\^/) { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |