Re: [MacPerl] MacPerl MacOS version?

[Detlef Lindenthal]

##  Mind the $^O;   and save lines!!!    (-:    (-:   (-:


use Mac::Gestalt;
(sprintf "%x", $Gestalt{gestaltSystemVersion()}) =~ m,(.*)(.)(.)$,;
print "$^O $1.$2.$3";


##   Regards, Detlef