[Module-build-checkins] [svn:Module-Build] r5882 - in Module-Build/trunk: lib/Module/Build t

[<kwi...@cv...>]

Author: kwilliams
Date: Sun Apr  9 20:39:55 2006
New Revision: 5882

Modified:
   Module-Build/trunk/lib/Module/Build/YAML.pm
   Module-Build/trunk/t/mbyaml.t

Log:
Get t/mbyaml and M::B::YAML working under perl 5.005.

Modified: Module-Build/trunk/lib/Module/Build/YAML.pm
==============================================================================
--- Module-Build/trunk/lib/Module/Build/YAML.pm	(original)
+++ Module-Build/trunk/lib/Module/Build/YAML.pm	Sun Apr  9 20:39:55 2006
@@ -1,11 +1,11 @@
 package Module::Build::YAML;
 
 use strict;
-use warnings;
 
-our $VERSION = "0.50";
-our @EXPORT = ();
-our @EXPORT_OK = qw(Dump Load DumpFile LoadFile);
+use vars qw($VERSION @EXPORT @EXPORT_OK);
+$VERSION = "0.50";
+@EXPORT = ();
+@EXPORT_OK = qw(Dump Load DumpFile LoadFile);
 
 sub new {
     my $this = shift;
@@ -39,7 +39,7 @@
     if ($filename =~ /^\s*(>{1,2})\s*(.*)$/) {
         ($mode, $filename) = ($1, $2);
     }
-    open my $OUT, $mode, $filename
+    open my $OUT, "$mode $filename"
       or die "Can't open $filename for writing: $!";
     print $OUT Dump(@_);
     close $OUT;

Modified: Module-Build/trunk/t/mbyaml.t
==============================================================================
--- Module-Build/trunk/t/mbyaml.t	(original)
+++ Module-Build/trunk/t/mbyaml.t	Sun Apr  9 20:39:55 2006
@@ -1,8 +1,8 @@
 #!/usr/local/bin/perl -w
 
-use Test::More qw(no_plan);
-use lib "lib";
-use lib "../lib";
+use strict;
+use lib $ENV{PERL_CORE} ? '../lib/Module/Build/t/lib' : 't/lib';
+use MBTest 'no_plan';
 
 my ($dir);
 $dir = ".";