/[libconf]/libconf/perl-Libconf/templates/XF86Config_template.pm
ViewVC logotype

Diff of /libconf/perl-Libconf/templates/XF86Config_template.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by dams, Fri Apr 11 18:37:14 2003 UTC revision 1.9 by dams, Mon Apr 21 13:58:09 2003 UTC
# Line 151  $templates{XF86Config} = { Line 151  $templates{XF86Config} = {
151                                           return $index;                                           return $index;
152                                         ),                                         ),
153                            find_atom_pos => q(                            find_atom_pos => q(
154                                               my $i = 0;                                               my $pos = 0;
155                                               my @res;                                               my @res;
156                                               foreach my $atom (@{$out->{atoms}}) {                                               foreach my $atom (@{$out->{atoms}}) {
157                                                   my $flag = 1;                                                   my $flag = 1;
# Line 172  $templates{XF86Config} = { Line 172  $templates{XF86Config} = {
172                                                           @{$atom->{list}}[$i] eq @{$args{list}}[$i] or $flag = 0;                                                           @{$atom->{list}}[$i] eq @{$args{list}}[$i] or $flag = 0;
173                                                       }                                                       }
174                                                   }                                                   }
175                                                   $flag and push(@res, $i);                                                   $flag and push(@res, $pos);
176                                               } continue {                                               } continue {
177                                                   $i++;                                                   $pos++;
178                                               }                                               }
179                                               wantarray ? @res : $res[0];                                               wantarray ? @res : $res[0];
180                                             )                                             )

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26