Script 'mail_helper' called by obssrc Hello community, here is the log from the commit of package perl-MCP for openSUSE:Factory checked in at 2026-01-23 17:34:06 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-MCP (Old) and /work/SRC/openSUSE:Factory/.perl-MCP.new.1928 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-MCP" Fri Jan 23 17:34:06 2026 rev:4 rq:1328815 version:0.70.0 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-MCP/perl-MCP.changes 2025-12-20 21:49:46.399344404 +0100 +++ /work/SRC/openSUSE:Factory/.perl-MCP.new.1928/perl-MCP.changes 2026-01-23 17:34:18.897020170 +0100 @@ -1,0 +2,9 @@ +Sat Jan 17 05:38:18 UTC 2026 - Tina Müller <[email protected]> + +- updated to 0.70.0 (0.07) + see /usr/share/doc/packages/perl-MCP/Changes + + 0.07 2026-01-16 + - Fixed bug in MCP::Prompt where text prompts had the wrong format. + +------------------------------------------------------------------- Old: ---- MCP-0.06.tar.gz New: ---- MCP-0.07.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-MCP.spec ++++++ --- /var/tmp/diff_new_pack.FRFmYQ/_old 2026-01-23 17:34:20.885102103 +0100 +++ /var/tmp/diff_new_pack.FRFmYQ/_new 2026-01-23 17:34:20.905102927 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-MCP # -# Copyright (c) 2025 SUSE LLC and contributors +# Copyright (c) 2026 SUSE LLC and contributors # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -18,10 +18,10 @@ %define cpan_name MCP Name: perl-MCP -Version: 0.60.0 +Version: 0.70.0 Release: 0 -# 0.06 -> normalize -> 0.60.0 -%define cpan_version 0.06 +# 0.07 -> normalize -> 0.70.0 +%define cpan_version 0.07 License: MIT Summary: Connect Perl with AI using MCP (Model Context Protocol) URL: https://metacpan.org/release/%{cpan_name} ++++++ MCP-0.06.tar.gz -> MCP-0.07.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCP-0.06/Changes new/MCP-0.07/Changes --- old/MCP-0.06/Changes 2025-12-05 12:56:59.000000000 +0100 +++ new/MCP-0.07/Changes 2026-01-16 17:07:40.000000000 +0100 @@ -1,4 +1,7 @@ +0.07 2026-01-16 + - Fixed bug in MCP::Prompt where text prompts had the wrong format. + 0.06 2025-12-05 - Protocol version is now 2025-11-25. - Added support for resources. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCP-0.06/META.json new/MCP-0.07/META.json --- old/MCP-0.06/META.json 2025-12-08 15:14:34.000000000 +0100 +++ new/MCP-0.07/META.json 2026-01-16 17:09:56.000000000 +0100 @@ -61,6 +61,6 @@ "web" : "https://web.libera.chat/#mojo"; } }, - "version" : "0.06", + "version" : "0.07", "x_serialization_backend" : "JSON::PP version 4.16" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCP-0.06/META.yml new/MCP-0.07/META.yml --- old/MCP-0.06/META.yml 2025-12-08 15:14:34.000000000 +0100 +++ new/MCP-0.07/META.yml 2026-01-16 17:09:56.000000000 +0100 @@ -33,5 +33,5 @@ homepage: https://mojolicious.org license: http://www.opensource.org/licenses/mit repository: https://github.com/mojolicious/mojo-mcp.git -version: '0.06' +version: '0.07' x_serialization_backend: 'CPAN::Meta::YAML version 0.020' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCP-0.06/lib/MCP/Prompt.pm new/MCP-0.07/lib/MCP/Prompt.pm --- old/MCP-0.06/lib/MCP/Prompt.pm 2025-08-28 15:51:38.000000000 +0200 +++ new/MCP-0.07/lib/MCP/Prompt.pm 2026-01-16 17:04:58.000000000 +0100 @@ -18,7 +18,7 @@ sub context ($self) { $self->{context} || {} } sub text_prompt ($self, $text, $role = 'user', $description = undef) { - my $result = {messages => [{role => $role, content => [{type => 'text', text => "$text"}]}]}; + my $result = {messages => [{role => $role, content => {type => 'text', text => "$text"}}]}; $result->{description} = $description if defined $description; return $result; } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCP-0.06/lib/MCP.pm new/MCP-0.07/lib/MCP.pm --- old/MCP-0.06/lib/MCP.pm 2025-09-30 12:57:35.000000000 +0200 +++ new/MCP-0.07/lib/MCP.pm 2026-01-16 17:08:39.000000000 +0100 @@ -1,7 +1,7 @@ package MCP; use Mojo::Base -base, -signatures; -our $VERSION = '0.06'; +our $VERSION = '0.07'; 1; @@ -91,7 +91,7 @@ =head1 COPYRIGHT AND LICENSE -Copyright (C) 2025, Sebastian Riedel. +Copyright (C) 2025-2026, Sebastian Riedel. This program is free software, you can redistribute it and/or modify it under the terms of the MIT license. diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCP-0.06/t/lite_app.t new/MCP-0.07/t/lite_app.t --- old/MCP-0.06/t/lite_app.t 2025-12-05 13:45:49.000000000 +0100 +++ new/MCP-0.07/t/lite_app.t 2026-01-16 17:05:53.000000000 +0100 @@ -203,20 +203,20 @@ subtest 'Get prompt' => sub { my $result = $client->get_prompt('time'); - is $result->{messages}[0]{role}, 'user', 'prompt role'; - is $result->{messages}[0]{content}[0]{text}, 'Tell the user the current time', 'prompt result'; + is $result->{messages}[0]{role}, 'user', 'prompt role'; + is $result->{messages}[0]{content}{text}, 'Tell the user the current time', 'prompt result'; }; subtest 'Get prompt (async)' => sub { my $result = $client->get_prompt('prompt_echo_async', {msg => 'hello mojo'}); - is $result->{messages}[0]{role}, 'user', 'prompt role'; - is $result->{messages}[0]{content}[0]{text}, 'Tell the user (async): hello mojo', 'prompt result'; + is $result->{messages}[0]{role}, 'user', 'prompt role'; + is $result->{messages}[0]{content}{text}, 'Tell the user (async): hello mojo', 'prompt result'; }; subtest 'Get prompt (Unicode)' => sub { my $result = $client->get_prompt('prompt_echo_async', {msg => 'i ♥ mcp'}); - is $result->{messages}[0]{role}, 'user', 'prompt role'; - is $result->{messages}[0]{content}[0]{text}, 'Tell the user (async): i ♥ mcp', 'prompt result'; + is $result->{messages}[0]{role}, 'user', 'prompt role'; + is $result->{messages}[0]{content}{text}, 'Tell the user (async): i ♥ mcp', 'prompt result'; }; subtest 'Get prompt (with HTTP header)' => sub { @@ -228,7 +228,7 @@ my $result = $client->get_prompt('prompt_echo_header', {msg => 'hello mojo'}); is $result->{description}, 'Echoed message with header', 'prompt description'; is $result->{messages}[0]{role}, 'assistant', 'prompt role'; - is $result->{messages}[0]{content}[0]{text}, 'Prompt with header: hello mojo (Header: TestHeaderWorks)', + is $result->{messages}[0]{content}{text}, 'Prompt with header: hello mojo (Header: TestHeaderWorks)', 'prompt result'; }; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/MCP-0.06/t/session_specific_app.t new/MCP-0.07/t/session_specific_app.t --- old/MCP-0.06/t/session_specific_app.t 2025-12-05 13:47:36.000000000 +0100 +++ new/MCP-0.07/t/session_specific_app.t 2026-01-16 17:06:45.000000000 +0100 @@ -110,9 +110,9 @@ is $result->{prompts}[2], undef, 'no more prompts'; my $user_prompt = $client->get_prompt('user_prompt'); - is $user_prompt->{messages}[0]{content}[0]{text}, 'This is a user prompt', 'user prompt result'; + is $user_prompt->{messages}[0]{content}{text}, 'This is a user prompt', 'user prompt result'; my $admin_prompt = $client->get_prompt('admin_prompt'); - is $admin_prompt->{messages}[0]{content}[0]{text}, 'This is an admin prompt', 'admin prompt result'; + is $admin_prompt->{messages}[0]{content}{text}, 'This is an admin prompt', 'admin prompt result'; }; subtest 'Resources' => sub { @@ -149,7 +149,7 @@ is $result->{prompts}[1], undef, 'no more prompts'; my $user_prompt = $client->get_prompt('user_prompt'); - is $user_prompt->{messages}[0]{content}[0]{text}, 'This is a user prompt', 'user prompt result'; + is $user_prompt->{messages}[0]{content}{text}, 'This is a user prompt', 'user prompt result'; eval { $client->get_prompt('admin_prompt') }; like $@, qr/Error -32601: Prompt 'admin_prompt' not found/, 'right error'; }; ++++++ _scmsync.obsinfo ++++++ --- /var/tmp/diff_new_pack.FRFmYQ/_old 2026-01-23 17:34:21.973146943 +0100 +++ /var/tmp/diff_new_pack.FRFmYQ/_new 2026-01-23 17:34:21.997147932 +0100 @@ -1,6 +1,6 @@ -mtime: 1765258526 -commit: 3068da88f5a137c3414869bda94371d8461f73f48dbc4b15382687d00ce8f5ec +mtime: 1768628299 +commit: 6687ca0be6ca2a4c18b45130ee548ca241d1397682ea08a2f5f7c410b8ad1204 url: https://src.opensuse.org/perl/perl-MCP.git -revision: 3068da88f5a137c3414869bda94371d8461f73f48dbc4b15382687d00ce8f5ec +revision: 6687ca0be6ca2a4c18b45130ee548ca241d1397682ea08a2f5f7c410b8ad1204 projectscmsync: https://src.opensuse.org/perl/_ObsPrj ++++++ build.specials.obscpio ++++++ ++++++ build.specials.obscpio ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/.gitignore new/.gitignore --- old/.gitignore 1970-01-01 01:00:00.000000000 +0100 +++ new/.gitignore 2026-01-22 09:30:09.000000000 +0100 @@ -0,0 +1 @@ +.osc
