Кодирует :: кодирует изменение/удаление исходной строки?

Question

Документация Encode::encode говорит:

закодировать

$ октета = закодировать (КОДИРОВАНИЕ, STRING [, CHECK]) Зашифровывает скалярное значение STRING из внутренней формы языка Perl в КОДИРОВАНИЯ и возвращается последовательность октетов.

Вот тестовый скрипт:

use feature qw(say); 
use strict; 
use warnings; 
use utf8; 
use open qw(:std :utf8); 

use Encode qw(encode); 

my $str = 'æ'; 
say "str = '$str'"; 
my $str2 = encode('UTF-8', $str, Encode::FB_CROAK); 
say "str = '$str'"; 

Выход:

str = 'æ' 
str = '' 

Почему $str стирается после вызова encode? Этого можно ожидать?

Answer 1

«Если бит Encode :: LEAVE_SRC не установлен, а CHECK установлен, то исходная строка для кодирования() или декодирования() будет перезаписана на месте. Если вам это не интересно, ИЛИ это с битовой маской. "

Цитата из документации Encode.