From: Rafael Garcia-Suarez Date: Mon, 5 Jan 2009 07:12:02 +0000 (+0100) Subject: Correct vim modeline X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=91c3081c6723940aaa1f980c9771b998eb7ba73c;p=p5sagit%2Fp5-mst-13.2.git Correct vim modeline - ts=4 is evil - use same settings as in everywhere else in the core sources --- diff --git a/make_patchnum.pl b/make_patchnum.pl index ad2e0f2..64a47e8 100644 --- a/make_patchnum.pl +++ b/make_patchnum.pl @@ -44,10 +44,10 @@ BEGIN { my $root="."; while (!-e "$root/perl.c" and length($root)<100) { if ($root eq '.') { - $root=".."; + $root=".."; } else { - $root.="/.."; - } + $root.="/.."; + } } die "Can't find toplevel" if !-e "$root/perl.c"; sub path_to { "$root/$_[0]" } # use $_[0] if this'd be placed in toplevel. @@ -57,7 +57,7 @@ sub read_file { my $file = path_to(@_); return "" unless -e $file; open my $fh, '<', $file - or die "Failed to open for read '$file':$!"; + or die "Failed to open for read '$file':$!"; return do { local $/; <$fh> }; } @@ -65,7 +65,7 @@ sub write_file { my ($file, $content) = @_; $file= path_to($file); open my $fh, '>', $file - or die "Failed to open for write '$file':$!"; + or die "Failed to open for write '$file':$!"; print $fh $content; close $fh; } @@ -173,4 +173,4 @@ git_commit_id_title='$commit_title' $extra_info ENDOFGIT EOF_CONFIG -# ex: set ts=4 sts=4 et ft=perl: +# ex: set ts=8 sts=4 sw=4 et ft=perl: