[pve-devel] [PATCH qemu-server 13/14] blockdev: add backing_chain support

[Fiona Ebner]

Am 28.05.25 um 11:08 schrieb DERUMIER, Alexandre via pve-devel:
> perl question: how to call a resursive private sub ? (it don't seem to
> allow it)

AFAIK, you can do it by declaring it up-front:

> [I] root at pve8a1 ~# cat asdf.pm 
> use strict;
> use warnings;
> 
> package Private;
> 
> my sub addpriv;
> sub addpriv {
>     my ($n, $m) = @_;
>     return $n if $m == 0;
>     addpriv($n + 1, $m - 1);
> }
> 
> 1;
> 
> package Public;
> 
> sub addpub {
>     my ($n, $m) = @_;
>     return $n if $m == 0;
>     addpub($n + 1, $m - 1);
> }
> 
> 1;
> 
> package Tester;
> 
> print Public::addpub(2,3) . "\n";
> print Private::addpriv(2,3) . "\n";
> 
> 1;
> [I] root at pve8a1 ~# perl asdf.pm
> 5
> Undefined subroutine &Private::addpriv called at asdf.pm line 28.