proxmox-mirrors/pve-common
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-common synced 2025-07-24 08:13:02 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

overload cmp operator for PVE::Exception

Browse Source 
So that we can use ($err eq "timeout") like expressions.
This commit is contained in:
Dietmar Maurer 2011-10-13 11:14:30 +02:00
parent 8ba7c72bd1
commit 710d2994af
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
data/PVE/Exception.pm
View File

@ -15,6 +15,11 @@ use HTTP::Status qw(:constants);
@ISA = qw(Exporter);
use overload '""' => sub {local $@; shift->stringify};
use overload 'cmp' => sub {
my ($a, $b) = @_;
local $@;
return "$a" cmp "$b"; # compare as string
};
@EXPORT_OK = qw(raise raise_param_exc);