[PERL] Fix bug on test script (#12983)

OpenAPITools · Jul 23, 2022 · 219b32b · 219b32b
1 parent c03cf17
commit 219b32b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/samples/client/petstore/perl/test.pl b/samples/client/petstore/perl/test.pl
@@ -61,7 +61,7 @@
     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(