Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

[November::Cache, November::Storage::File] :e

It's C<$file.IO ~~ :e> nowadays, not C<$file ~~ :e>.
  • Loading branch information...
commit d157b1e59d06df794cae9f4a1a2b72d4889f1588 1 parent 57a5c0e
@masak masak authored
Showing with 6 additions and 6 deletions.
  1. +2 −2 lib/November/Cache.pm
  2. +4 −4 lib/November/Storage/File.pm
View
4 lib/November/Cache.pm
@@ -15,14 +15,14 @@ method set-cache-entry( $key, $value ) {
method get-cache-entry( $key ) {
my $file = self.cache-dir ~ '/' ~ $key;
- return Nil unless $file ~~ :e;
+ return Nil unless $file.IO ~~ :e;
my $string = slurp( $file );
return $string;
}
method remove-cache-entry( $key ) {
my $file = self.cache-dir ~ '/' ~ $key;
- return unless $file ~~ :e;
+ return unless $file.IO ~~ :e;
unlink( $file );
}
View
8 lib/November/Storage/File.pm
@@ -26,11 +26,11 @@ class November::Storage::File is November::Storage {
}
method wiki_page_exists($page) {
- return ($.content_path ~ $page) ~~ :e;
+ return ($.content_path ~ $page).IO ~~ :e;
}
method read_recent_changes {
- return [] unless $.recent_changes_path ~~ :e;
+ return [] unless $.recent_changes_path.IO ~~ :e;
return eval( slurp( $.recent_changes_path ) );
}
@@ -42,7 +42,7 @@ class November::Storage::File is November::Storage {
method read_page_history($page) {
my $file = $.content_path ~ $page;
- return [] unless $file ~~ :e;
+ return [] unless $file.IO ~~ :e;
my $page_history = eval( slurp($file) );
return $page_history;
}
@@ -56,7 +56,7 @@ class November::Storage::File is November::Storage {
method read_modification($modification_id) {
my $file = $.modifications_path ~ $modification_id;
- return [] unless $file ~~ :e;
+ return [] unless $file.IO ~~ :e;
return eval( slurp($file) );
}
Please sign in to comment.
Something went wrong with that request. Please try again.