Allow appending on a PerlIO::Scalar

[p5sagit/p5-mst-13.2.git] / t / lib / attrs.t

diff --git a/t/lib/attrs.t b/t/lib/attrs.t
index eb8c8c4..18a02ab 100644 (file)
--- a/t/lib/attrs.t
+++ b/t/lib/attrs.t
@@ -4,16 +4,19 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    unshift @INC, '../lib';
+    @INC = '../lib';
     eval 'require attrs; 1' or do {
        print "1..0\n";
        exit 0;
     }
 }
 
+use warnings;
+no warnings qw(deprecated);     # else attrs cries.
+
 sub NTESTS () ;
 
-my $test, $ntests;
+my ($test, $ntests);
 BEGIN {$ntests=0}
 $test=0;
 my $failed = 0;
@@ -119,7 +122,7 @@ BEGIN {++$ntests}
 
 {
     my $w = "" ;
-    local $SIG{__WARN__} = sub {$w = @_[0]} ;
+    local $SIG{__WARN__} = sub {$w = shift} ;
     eval 'sub w1 ($) { use warnings "deprecated"; use attrs "locked"; $_[0]++ }';
     (print "not "), $failed=1 if $@;
     print "ok ",++$test,"\n";