Parent Directory | Revision Log | Patch
revision 129 by dpavlin, Sat Apr 28 22:53:37 2007 UTC | revision 130 by dpavlin, Sun Apr 29 12:07:06 2007 UTC | |
---|---|---|
# | Line 205 sub element_by_triplet { | Line 205 sub element_by_triplet { |
205 | my $fatal = $args->{fatal}; | my $fatal = $args->{fatal}; |
206 | die "no triplets" unless defined( $args->{triplets} ); | die "no triplets" unless defined( $args->{triplets} ); |
207 | my @triplets; | my @triplets; |
warn dump( $args->{triplets} ); | ||
208 | if ( ref( $args->{triplets} ) eq 'ARRAY' ) { | if ( ref( $args->{triplets} ) eq 'ARRAY' ) { |
209 | @triplets = @{ $args->{triplets} }; | @triplets = @{ $args->{triplets} }; |
210 | } else { | } else { |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |