Makefile: replace perl/Makefile.PL with simple make rules

diff --git a/perl/Git.pm b/perl/Git.pm
index 3179e6efb29a1a88df8f90aa458fbe5f9a41d419..02a3871e9405bf2b0b881955e19188a16bd31b1a 100644 (file)
--- a/perl/Git.pm
+++ b/perl/Git.pm
@@ -101,7 +101,7 @@ =head1 DESCRIPTION
 
 
 use Carp qw(carp croak); # but croak is bad - throw instead
-use Error qw(:try);
+use Git::Error qw(:try);
 use Cwd qw(abs_path cwd);
 use IPC::Open2 qw(open2);
 use Fcntl qw(SEEK_SET SEEK_CUR);
@@ -532,7 +532,7 @@ sub version {
 =cut
 
 sub get_tz_offset {
-       # some systmes don't handle or mishandle %z, so be creative.
+       # some systems don't handle or mishandle %z, so be creative.
        my $t = shift || time;
        my $gm = timegm(localtime($t));
        my $sign = qw( + + - )[ $gm <=> $t ];
@@ -1493,8 +1493,8 @@ sub prefix_lines {
                                        $_ = $2;
                                        last;
                                }
-                               # This is malformed -- just return it as-is for now.
-                               return $_[0];
+                               # This is malformed
+                               throw Error::Simple("invalid quoted path $_[0]");
                        }
                        $_ = $remainder;
                }