1*0Sstevel@tonic-gate# -*- mode: cperl -*- 2*0Sstevel@tonic-gate 3*0Sstevel@tonic-gateuse strict; 4*0Sstevel@tonic-gateprint "1..1\n"; 5*0Sstevel@tonic-gate 6*0Sstevel@tonic-gateif (!eval { require Module::Signature; 1 }) { 7*0Sstevel@tonic-gate print "ok 1 # skip - no Module::Signature found\n"; 8*0Sstevel@tonic-gate} 9*0Sstevel@tonic-gateelsif (!eval { require Socket; Socket::inet_aton('pgp.mit.edu') }) { 10*0Sstevel@tonic-gate print "ok 1 # skip - Cannot connect to the keyserver"; 11*0Sstevel@tonic-gate} 12*0Sstevel@tonic-gateelse { 13*0Sstevel@tonic-gate (Module::Signature::verify() == Module::Signature::SIGNATURE_OK()) 14*0Sstevel@tonic-gate or print "not "; 15*0Sstevel@tonic-gate print "ok 1 # Valid signature\n"; 16*0Sstevel@tonic-gate} 17