Initial pass of making win32 compatible, using Thrall and fixing regex

[scpubgit/App-SCS.git] / lib / App / SCS / PageSet.pm

diff --git a/lib/App/SCS/PageSet.pm b/lib/App/SCS/PageSet.pm
index 3f3d5d6..e034623 100644 (file)
--- a/lib/App/SCS/PageSet.pm
+++ b/lib/App/SCS/PageSet.pm
@@ -71,7 +71,7 @@ sub _config_files_for {
 
 sub _inflate {
   my ($self, $type, $path, $io) = @_;
-  (my $cache_name = $io->name) =~ s/\/([^\/]+)$/\/.htcache.$1.json/;
+  (my $cache_name = $io->name) =~ s/[\\\/]([^\/\\]+)$/\/.htcache.$1.json/;
   my $cache = io($cache_name);
   my @config_files = $self->_config_files_for($path);
   my $max_stat = max map $_->mtime, $io, @config_files;