Thread Testen, ob referenz blessed ist (28 answers)
Opened by esskar at 2005-02-17 01:02

esskar
 2005-02-19 17:17
#51851 #51851
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=pq,19.02.2005, 15:41]was macht denn möglichkeit 3 anders als 2?[/quote]
Scalar::Util Module Version: 1.14
Code: (dl )
1
2
3
4
5
6
7
8
9
# Hope nobody defines a sub by this name
sub UNIVERSAL::a_sub_not_likely_to_be_here { ref($_[0]) }

sub blessed ($) {
local($@, $SIG{}, $SIG{});
length(ref($_[0]))
? eval { $_[0]->a_sub_not_likely_to_be_here }
: undef
}


außer natürlich, es gäbe seit ein paar Tagen: Scalar::Util 1.15.
Ich hab nämlich Graham ne Mail geschrieben und ihm die Verbesserung vorgeschlagen!

View full thread Testen, ob referenz blessed ist