[Bps-public-commit] r16251 - Prophet/trunk/lib/Prophet

[jesse at bestpractical.com]

Author: jesse
Date: Wed Oct  8 19:21:10 2008
New Revision: 16251

Modified:
   Prophet/trunk/lib/Prophet/Test.pm

Log:
 * Work around a segfault on Perl 5.10

Modified: Prophet/trunk/lib/Prophet/Test.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/Test.pm	(original)
+++ Prophet/trunk/lib/Prophet/Test.pm	Wed Oct  8 19:21:10 2008
@@ -113,7 +113,7 @@
 sub run_ok {
     my $script = shift;
     my $args   = shift if ( ref $_[0] eq 'ARRAY' );
-    my $msg    = shift if (@_);
+    my $msg    = (@_) ? shift : '';
 
     local $Test::Builder::Level = $Test::Builder::Level + 1;