Changeset 3222df2 for perl

Timestamp:

Aug 16, 2017, 12:53:41 PM (7 years ago)

Author:

Jason Gross <jasongross9@gmail.com>

Branches:

master

Children:

b807d8f

Parents:

9625c55

git-author:

Jason Gross <jgross@mit.edu> (08/06/17 00:13:19)

git-committer:

Jason Gross <jasongross9@gmail.com> (08/16/17 12:53:41)

Message:

Replace initial . with _

This is so that, e.g., we won't write to .git, .gitconfig, etc.

File:

• perl/lib/BarnOwl/Logging.pm (modified) (2 diffs)

perl/lib/BarnOwl/Logging.pm

@@ -144 +144 @@
 Sanitizes C<FILENAME> and concatenates it with C<BASE_PATH>.
 
-In any filename, C<"/"> and any control characters (characters which
-match C<[:cntrl:]> get replaced by underscores.  If the resulting
-filename is empty or equal to C<"."> or C<"..">, it is replaced with
-C<"weird">.
+In any filename, C<"/">, any control characters (characters which
+match C<[:cntrl:]>), and any initial C<"."> characters get replaced by
+underscores.  If the resulting filename is empty, it is replaced with
+C<"_EMPTY_">.
 
 =cut
@@ -155 +155 @@
     my $filename = shift;
     $filename =~ s/[[:cntrl:]\/]/_/g;
-    if ($filename eq '' || $filename eq '.' || $filename eq '..') {
-        $filename = 'weird';
-    }
+    $filename =~ s/^\./_/g; # handle ., .., and hidden files
+    $filename = '_EMPTY_' if $filename eq '';
     # The original C code also removed characters less than '!' and
     # greater than or equal to '~', marked file names beginning with a