← Back to branch summary

~ubuntu-branches/ubuntu/utopic/libxml-bare-perl/utopic

« back to all changes in this revision

Viewing changes to makebench.PL

  • Committer: Package Import Robot
  • Author(s): gregor herrmann, Salvatore Bonaccorso, Ryan Niebur, Ansgar Burchardt, gregor herrmann
  • Date: 2012-02-11 20:39:33 UTC
  • mfrom: (1.1.3)
  • Revision ID: package-import@ubuntu.com-20120211203933-kaqjkdxlqgircomq
Tags: 0.47-1
[ Salvatore Bonaccorso ]
* debian/control: Changed: Replace versioned (build-)dependency on
  perl (>= 5.6.0-{12,16}) with an unversioned dependency on perl (as
  permitted by Debian Policy 3.8.3).

[ Ryan Niebur ]
* Email change: Jonathan Yu -> jawnsy@cpan.org
* Email change: Ryan Niebur -> ryan@debian.org

[ Ansgar Burchardt ]
* debian/control: Convert Vcs-* fields to Git.

[ gregor herrmann ]
* New upstream release.
* Switch to "3.0 (quilt)" source format.
* debian/copyright: update formatting, upstream and packaging copyright
  information.
* Switch to debhelper compatibility level 9 to pass CFLAGS to
  Makefile.PL/Build.PL.
* Add /me to Uploaders.
* Update build dependencies.
* Bump Standards-Version to 3.9.2 (no further changes).

Show diffs side-by-side

added added

removed removed

Lines of Context:
makebench.PL
98
98
    $type = $1;
99
99
  }
100
100
  #print "[$type $module]\n";
101
 
  
 
101
 
102
102
  if( $type eq 'c' ) {
103
103
    $part =~ s/c\n//g;
104
104
    $part = "##".$part."##";
108
108
    next;
109
109
  }
110
110
  if( $type eq '0' ) {
111
 
    
 
111
 
112
112
    if( $module ) {
113
113
      $part =~ s/(#0)\W*.*/$1/;
114
114
    }
115
 
    
 
115
 
116
116
    while( $part =~ m/(require [A-Za-z\:]+;)/g ) {
117
117
      my $req = $1;
118
118
      if( !$module ) {
123
123
      push( @requires, $req );
124
124
    }
125
125
    $part =~ s/require [A-Za-z\:]+;\n//g;
126
 
    
 
126
 
127
127
    $part = "##".$part."##";
128
128
    $part =~ s/^##[#0 \n]+//;
129
129
    $part =~ s/[ \n]+##$//;
130
 
    
 
130
 
131
131
    print OUT "
132
132
    if( \$ARGV[0]*1 >= $i ) {
133
133
      (\$s, \$usec) = gettimeofday();
134
134
      if( eval( '@requires' ) ) {
135
135
        (\$s2, \$usec2) = gettimeofday();
136
 
        
 
136
 
137
137
$part
138
138
 
139
139
        (\$s3, \$usec3) = gettimeofday();
144
144
    ";
145
145
  }
146
146
  if( $type eq '-' ) {
147
 
    
 
147
 
148
148
    if( $module ) {
149
149
      $part =~ s/(#[\-\0\+])\W*.*/$1/;
150
150
    }
151
 
    
 
151
 
152
152
    while( $part =~ m/(require [A-Za-z\:]+;)/g ) {
153
153
      my $req = $1;
154
154
      if( !$module ) {
159
159
      push( @requires, $req );
160
160
    }
161
161
    $part =~ s/require [A-Za-z\:]+;\n//g;
162
 
    
 
162
 
163
163
    $part = "##".$part."##";
164
164
    $part =~ s/^##[#\- \n]+//;
165
165
    $part =~ s/[ \n]+##$//;
166
 
    
 
166
 
167
167
    print OUT "
168
168
    if( \$ARGV[0] eq '$i' ) {
169
169
      (\$s, \$usec) = gettimeofday();
170
170
      if( eval( '@requires' ) ) {
171
171
        (\$s2, \$usec2) = gettimeofday();
172
 
        
 
172
 
173
173
$part
174
174
 
175
175
        (\$s3, \$usec3) = gettimeofday();
185
185
    $part =~ s/[ \n]+##$//;
186
186
    print OUT "
187
187
    if( \$ARGV[0] eq '$i' ) {
188
 
    
 
188
 
189
189
$part
190
 
    
 
190
 
191
191
    }
192
192
    ";
193
193
  }
197
197
    $part =~ s/[ \n]+##$//;
198
198
    print OUT "
199
199
    #if( \$ARGV[0] eq '$i' ) {
200
 
    
 
200
 
201
201
$part
202
 
    
 
202
 
203
203
    #}
204
204
    ";
205
205
  }
220
220
sub timeit {
221
221
  my \$name = shift;
222
222
  my \$base = shift;
223
 
  \$sa = \$s2-\$s + ((\$usec2-\$usec)/1000000); 
224
 
  \$sb = \$s3-\$s2 + ((\$usec3-\$usec2)/1000000); 
225
 
  \$sc = \$s3-\$s + ((\$usec3-\$usec)/1000000); 
 
223
  \$sa = \$s2-\$s + ((\$usec2-\$usec)/1000000);
 
224
  \$sb = \$s3-\$s2 + ((\$usec3-\$usec2)/1000000);
 
225
  \$sc = \$s3-\$s + ((\$usec3-\$usec)/1000000);
226
226
  if( \$base ) {
227
227
    \$base1 = \$sa;
228
228
    \$base2 = \$sb;