[Bps-public-commit] r18616 - in String-BufferStack: .

[alexmv at bestpractical.com]

Author: alexmv
Date: Mon Mar  2 20:23:38 2009
New Revision: 18616

Modified:
   String-BufferStack/   (props changed)
   String-BufferStack/t/01-basic.t

Log:
 r42847 at kohr-ah:  chmrr | 2009-03-02 20:20:07 -0500
 Fixes to make tests pass on 5.6


Modified: String-BufferStack/t/01-basic.t
==============================================================================
--- String-BufferStack/t/01-basic.t	(original)
+++ String-BufferStack/t/01-basic.t	Mon Mar  2 20:23:38 2009
@@ -12,7 +12,9 @@
 my $stack = String::BufferStack->new;
 ok($stack, "Made an object");
 isa_ok($stack, 'String::BufferStack');
-{
+SKIP: {
+    skip "Perl 5.6 doesn't support three arg open to a string", 2
+        unless $] >= 5.008;
     open my $output, '>>', \$BUFFER;
     local *STDOUT = $output;
     $stack->append("Content");