From 7a439fd702e9ecf9981c416580aa4f6f7efa05b0 Mon Sep 17 00:00:00 2001
From: hao <hao@plainblack.com>
Date: Fri, 2 Oct 2009 07:52:48 -0400
Subject: [PATCH] Fixed failure in test 250 of t/00_compile.t.

not ok 250 - WebGUI/Asset/Wobject/StoryArchive.pm compiles without warnings
@   Failed test 'WebGUI/Asset/Wobject/StoryArchive.pm compiles without warnings'
@   at 00_compile.t line 52.
@          got: 'Argument "." isn't numeric in numeric eq (==) at /Users/hao/Dropbox/PB/wg/webgui/lib/WebGUI/Asset/Wobject/StoryArchive.pm line 383.'
@     expected: ''
---
 docs/changelog/7.x.x.txt                 | 1 +
 lib/WebGUI/Asset/Wobject/StoryArchive.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 96a3bf692..a71892a55 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -34,6 +34,7 @@
  - fixed #11081: Prop style in 7.8.0?
  - fixed #11083: TGC template bug fixes, round #1
  - fixed #10544: Child assets under uncommitted parents
+ - fixed failure in test 250 of t/00_compile.t
 
 7.8.0
  - upgraded YUI to 2.8.0r4
diff --git a/lib/WebGUI/Asset/Wobject/StoryArchive.pm b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
index c69cc0b91..2153afaf9 100644
--- a/lib/WebGUI/Asset/Wobject/StoryArchive.pm
+++ b/lib/WebGUI/Asset/Wobject/StoryArchive.pm
@@ -380,7 +380,7 @@ sub getKeywordStaticURL {
     my $url = $self->getUrl;
     my @parts = split /\//, $url;
     my $lastPart = pop @parts;
-    if (index $lastPart, '.' == -1) {
+    if (index( $lastPart, '.' ) == -1) {
         return join '/', $self->getUrl, $self->getKeywordFilename($keyword);
     }
     else {