/[webpac2]/trunk/lib/WebPAC/Normalize.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Normalize.pm

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

revision 1214 by dpavlin, Tue Jun 2 13:14:59 2009 UTC revision 1364 by dpavlin, Thu Apr 21 17:10:04 2011 UTC
# Line 123  sub data_structure { Line 123  sub data_structure {
123          $load_row_coderef = $arg->{load_row_coderef};          $load_row_coderef = $arg->{load_row_coderef};
124    
125          no strict 'subs';          no strict 'subs';
126          no warnings 'redefine';          no warnings 'all';
127          eval "$arg->{rules};";          eval "$arg->{rules};";
128          die "error evaling $arg->{rules}: $@\n" if ($@);          die "error evaling $arg->{rules}: $@\n" if ($@);
129    
# Line 954  sub count { Line 954  sub count {
954    
955  Always return field as array  Always return field as array
956    
957    foreach my $d ( rec_array('field') {    foreach my $d ( rec_array('field') ) {
958          warn $d;          warn $d;
959    }    }
960    
Legend:
Removed from v.1214  
changed lines
  Added in v.1364
  ViewVC Help
Powered by ViewVC 1.1.26