[Bps-public-commit] Config-GitLike branch, master, updated. 1.00-21-g1f4bbbf

[spang at bestpractical.com]

The branch, master has been updated
       via  1f4bbbf15e3ca7e748b56fd1eba2070eb5e40596 (commit)
       via  78cae6076c583ddee87b4adb18c9c5d0c41848f8 (commit)
       via  0f3e189409322f22dbe76d14cf6054d28df43423 (commit)
       via  81ba645078e016bd056328ec597773942fd27dc4 (commit)
      from  8f2633bfaf1c18b01320368ab4076562cac95634 (commit)

Summary of changes:
 .gitignore            |    1 +
 .shipit               |    2 ++
 Changes               |    4 ++++
 lib/Config/GitLike.pm |   10 +++++-----
 4 files changed, 12 insertions(+), 5 deletions(-)

- Log -----------------------------------------------------------------
commit 81ba645078e016bd056328ec597773942fd27dc4
Author: Christine Spang <spang at bestpractical.com>
Date:   Fri Aug 14 15:06:53 2009 +0100

    Minor stylistic nits + fix a comment that didn't say quite the right thing

diff --git a/lib/Config/GitLike.pm b/lib/Config/GitLike.pm
index cf768d5..08a8063 100644
--- a/lib/Config/GitLike.pm
+++ b/lib/Config/GitLike.pm
@@ -230,19 +230,19 @@ sub parse_content {
             if ($2) {
                 my $subsection = $2;
                 my $check      = $2;
-                $check =~ s!\\\\!!g;
-                $check =~ s!\\"!!g;
+                $check =~ s{\\\\}{}g;
+                $check =~ s{\\"}{}g;
                 return $args{error}->(
                     content => $args{content},
                     offset  => $offset,
 
-                    # don't allow quoted subsections to contain unquoted
+                    # don't allow quoted subsections to contain unescaped
                     # double-quotes or backslashes
                 ) if $check =~ /\\|"/;
 
                 $section .= ".$subsection";
             }
-        
+
             $args{callback}->(
                 section    => $section,
                 offset     => $offset,
@@ -724,7 +724,7 @@ sub group_set {
             die "Unescaped backslash or \" in subsection $subsection\n"
               if $check =~ /\\|"/;
         }
-        
+
         $args{value} = $self->cast(
             value => $args{value},
             as    => $args{as},

commit 0f3e189409322f22dbe76d14cf6054d28df43423
Author: Christine Spang <spang at bestpractical.com>
Date:   Fri Aug 14 15:07:06 2009 +0100

    Note sunnavy's fixes in changelog

diff --git a/Changes b/Changes
index d4e2743..0974748 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,7 @@
+1.02 - UNRELEASED
+
+* Bugfixes and extra tests for escaped \ and " in subsections (sunnavy)
+
 1.01 - 2009-08-11
 
 * Fix breakage under Mouse due to Moose references

commit 78cae6076c583ddee87b4adb18c9c5d0c41848f8
Author: Christine Spang <spang at bestpractical.com>
Date:   Fri Aug 14 15:07:18 2009 +0100

    gitignore Devel::Cover's output

diff --git a/.gitignore b/.gitignore
index fd16699..95c37ce 100644
--- a/.gitignore
+++ b/.gitignore
@@ -8,3 +8,4 @@ MANIFEST
 MANIFEST.bak
 SIGNATURE
 META.yml
+cover_db

commit 1f4bbbf15e3ca7e748b56fd1eba2070eb5e40596
Author: Christine Spang <spang at bestpractical.com>
Date:   Fri Aug 14 15:07:50 2009 +0100

    I don't want my shipit dists to end up in ~/shipit-dist

diff --git a/.shipit b/.shipit
index 6515ba1..1a1f615 100644
--- a/.shipit
+++ b/.shipit
@@ -8,3 +8,5 @@ git.tagpattern = %v
 # svn.tagpattern = http://code.example.com/svn/tags/MyProj-%v
 
 # CheckChangeLog.files = ChangeLog, MyProj.CHANGES
+
+MakeDist.destination = ~/src/shipit-dist

-----------------------------------------------------------------------