fix typo in synoposis (RT#100492)

[catagits/HTTP-Body.git] / scripts / benchmark.pl

diff --git a/scripts/benchmark.pl b/scripts/benchmark.pl
index 16f38ff..844d3c0 100644 (file)
--- a/scripts/benchmark.pl
+++ b/scripts/benchmark.pl
@@ -7,6 +7,7 @@ BEGIN {
 use strict;
 use warnings;
 use lib "$FindBin::Bin/../lib";
+use lib "$FindBin::Bin/../t/lib";
 
 use Benchmark   qw[cmpthese timethese];
 use CGI         qw[];
@@ -14,7 +15,7 @@ use CGI::Simple qw[];
 use HTTP::Body  qw[];
 use IO::Handle  qw[];
 use IO::File    qw[O_RDONLY SEEK_SET];
-use YAML        qw[LoadFile];
+use PAML        qw[LoadFile];
 
 my ( $headers, $content, $message );
 
@@ -97,7 +98,7 @@ my @benchmarks =  @ARGV ? @ARGV : qw[ t/data/benchmark/001
 
 foreach my $benchmark ( @benchmarks ) {
 
-    $headers  = LoadFile("$FindBin::Bin/../$benchmark-headers.yml");
+    $headers  = LoadFile("$FindBin::Bin/../$benchmark-headers.pml");
     $content  = IO::File->new( "$FindBin::Bin/../$benchmark-content.dat", O_RDONLY )
       or die $!;
 
@@ -115,7 +116,7 @@ foreach my $benchmark ( @benchmarks ) {
     printf( "Benchmark      : %s\n", $headers->{'Benchmark'} ) if $headers->{'Benchmark'};
     print "\n";
 
-    cmpthese( -1, $benchmarks );
+    timethese( -1, $benchmarks );
 
     printf( "%s\n", "-" x 80 ) if @benchmarks > 1;
 }