From 219b32b54328ce572ebe6cdd9f1eeba8053a6af4 Mon Sep 17 00:00:00 2001 From: Thomas Hansen Date: Sat, 23 Jul 2022 02:56:24 +0200 Subject: [PATCH] [PERL] Fix bug on test script (#12983) --- samples/client/petstore/perl/test.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/samples/client/petstore/perl/test.pl b/samples/client/petstore/perl/test.pl index 3f00dc9fb67..665412d7bbf 100755 --- a/samples/client/petstore/perl/test.pl +++ b/samples/client/petstore/perl/test.pl @@ -61,7 +61,7 @@ print "\nupload_file:" additional_metadata => 'testabc', file => './test.pl' ); -print "\nadd_pet:" . Dumper $api->add_pet( body => $pet ); +print "\nadd_pet:" . Dumper $api->add_pet( pet => $pet ); print "\nget_pet_by_id:" . Dumper $api->get_pet_by_id( pet_id => $pet_id ); print "\nupdate_pet_with_form:" . Dumper $api->update_pet_with_form(