diff --git a/dist.ini b/dist.ini index 6f2fb12..167e3e2 100644 --- a/dist.ini +++ b/dist.ini @@ -23,7 +23,6 @@ directory = examples [PodVersion] [Prereqs / TestRequires] -File::Temp = 0 Test::More = 0.90 Math::BigInt = 1.997 diff --git a/t/00prim.t b/t/00prim.t index cd18732..904c9c6 100644 --- a/t/00prim.t +++ b/t/00prim.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test that the primitive operators are working diff --git a/t/01tag.t b/t/01tag.t index dd375af..40e28a0 100644 --- a/t/01tag.t +++ b/t/01tag.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test that the primitive operators are working diff --git a/t/02seq.t b/t/02seq.t index 531f2fe..bc21712 100644 --- a/t/02seq.t +++ b/t/02seq.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test the use of sequences diff --git a/t/03seqof.t b/t/03seqof.t index a5e699b..66683b6 100644 --- a/t/03seqof.t +++ b/t/03seqof.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test that the primitive operators are working diff --git a/t/04opt.t b/t/04opt.t index 33fba19..7f23fca 100644 --- a/t/04opt.t +++ b/t/04opt.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test that the primitive operators are working diff --git a/t/05time.t b/t/05time.t index fe6a179..f444e7f 100644 --- a/t/05time.t +++ b/t/05time.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test that the primitive operators are working diff --git a/t/06bigint.t b/t/06bigint.t index ab1164f..f9aeba3 100644 --- a/t/06bigint.t +++ b/t/06bigint.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test bigint INTEGER encoding/decoding diff --git a/t/07io.t b/t/07io.t index bb1c804..706cf51 100644 --- a/t/07io.t +++ b/t/07io.t @@ -1,8 +1,7 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl use Convert::ASN1 qw(:io); use IO::Socket; -use File::Temp (); print "1..11\n"; @@ -15,11 +14,11 @@ my $result = pack("C*", 0x30, 0x3D, 0x04, 0x04, 0x46, 0x72, 0x65, 0x64, 0x73, 0x74, 0x04, 0x02, 0x6F, 0x66, 0x04, 0x07, 0x73, 0x74, 0x72, 0x69, 0x6E, 0x67, 0x73); -$fd = File::Temp->new('UNLINK' => 0); -$file = $fd->filename; -asn_write($fd, $result); -asn_write($fd, $result); -$fd->close; +($file = $0) =~ s/t$/dat/; +open(OUT,"> $file"); +asn_write(*OUT, $result); +asn_write(*OUT, $result); +close(OUT); open(IN,"< $file"); sysread(IN,$buffer,1024); diff --git a/t/08set.t b/t/08set.t index 7554157..b35a7ba 100644 --- a/t/08set.t +++ b/t/08set.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test the use of sets diff --git a/t/09contr.t b/t/09contr.t index 72d25fc..2213c7e 100644 --- a/t/09contr.t +++ b/t/09contr.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test the decode on constructed values diff --git a/t/10choice.t b/t/10choice.t index 93d194f..6ceeb6d 100644 --- a/t/10choice.t +++ b/t/10choice.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test the use of choices diff --git a/t/11explicit.t b/t/11explicit.t index 195958c..7e24506 100644 --- a/t/11explicit.t +++ b/t/11explicit.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl BEGIN { require 't/funcs.pl' } diff --git a/t/11indef.t b/t/11indef.t index b0581d7..7c3886d 100644 --- a/t/11indef.t +++ b/t/11indef.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test that indefinite length encodings can be decoded diff --git a/t/12der.t b/t/12der.t index 4469bd1..b7d1b79 100644 --- a/t/12der.t +++ b/t/12der.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test the use of sets diff --git a/t/13utf8.t b/t/13utf8.t index c8bff82..1f62042 100644 --- a/t/13utf8.t +++ b/t/13utf8.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test the use of utf8 strings diff --git a/t/14any.t b/t/14any.t index 799e1dc..4147764 100644 --- a/t/14any.t +++ b/t/14any.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Check whether the ANY DEFINED BY syntax is working diff --git a/t/15extseq.t b/t/15extseq.t index af934e2..6060793 100644 --- a/t/15extseq.t +++ b/t/15extseq.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test the use of sequences diff --git a/t/16extset.t b/t/16extset.t index f3fbea7..c57ac0c 100644 --- a/t/16extset.t +++ b/t/16extset.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test the use of sequences diff --git a/t/17extchoice.t b/t/17extchoice.t index a3ba5d9..66bd9c5 100644 --- a/t/17extchoice.t +++ b/t/17extchoice.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test the use of sequences diff --git a/t/18tagdefault.t b/t/18tagdefault.t index 18fb1d8..6a1fa3b 100644 --- a/t/18tagdefault.t +++ b/t/18tagdefault.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Test that default EXPLICIT tagging works. diff --git a/t/99misc.t b/t/99misc.t index da3044a..4b67aba 100644 --- a/t/99misc.t +++ b/t/99misc.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl # # Misc tests from github reported issues diff --git a/t/x509.t b/t/x509.t index f931385..3fd5ba0 100644 --- a/t/x509.t +++ b/t/x509.t @@ -1,4 +1,4 @@ -#!/usr/bin/perl +#!/usr/local/bin/perl print "1..26\n";