re-tidy perl code
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
@ -928,8 +928,7 @@ __PACKAGE__->register_method({
|
|||||||
reference => {
|
reference => {
|
||||||
description => "The reference to the OCI image to download.",
|
description => "The reference to the OCI image to download.",
|
||||||
type => 'string',
|
type => 'string',
|
||||||
pattern =>
|
pattern => '^(?:(?:[a-zA-Z\d]|[a-zA-Z\d][a-zA-Z\d-]*[a-zA-Z\d])'
|
||||||
'^(?:(?:[a-zA-Z\d]|[a-zA-Z\d][a-zA-Z\d-]*[a-zA-Z\d])'
|
|
||||||
. '(?:\.(?:[a-zA-Z\d]|[a-zA-Z\d][a-zA-Z\d-]*[a-zA-Z\d]))*(?::\d+)?/)?[a-z\d]+'
|
. '(?:\.(?:[a-zA-Z\d]|[a-zA-Z\d][a-zA-Z\d-]*[a-zA-Z\d]))*(?::\d+)?/)?[a-z\d]+'
|
||||||
. '(?:(?:[._]|__|[-]*)[a-z\d]+)*(?:/[a-z\d]+(?:(?:[._]|__|[-]*)[a-z\d]+)*)*'
|
. '(?:(?:[._]|__|[-]*)[a-z\d]+)*(?:/[a-z\d]+(?:(?:[._]|__|[-]*)[a-z\d]+)*)*'
|
||||||
. ':\w[\w.-]{0,127}$',
|
. ':\w[\w.-]{0,127}$',
|
||||||
@ -974,7 +973,7 @@ __PACKAGE__->register_method({
|
|||||||
my $path = PVE::Storage::get_vztmpl_dir($cfg, $storage);
|
my $path = PVE::Storage::get_vztmpl_dir($cfg, $storage);
|
||||||
PVE::Storage::activate_storage($cfg, $storage);
|
PVE::Storage::activate_storage($cfg, $storage);
|
||||||
|
|
||||||
die "refusing to override existing file '$filename'\n" if (-f "$path/$filename");
|
die "refusing to override existing file '$filename'\n" if -f "$path/$filename";
|
||||||
|
|
||||||
local $SIG{INT} = sub {
|
local $SIG{INT} = sub {
|
||||||
unlink "$path/$tmp_filename"
|
unlink "$path/$tmp_filename"
|
||||||
|
|||||||
Reference in New Issue
Block a user