diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-01-05 08:12:02 +0100 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-01-05 08:13:23 +0100 |
commit | 91c3081c6723940aaa1f980c9771b998eb7ba73c (patch) | |
tree | 7276fc9ea3ba51f50810fa50aba791ce3ee6c166 | |
parent | 20231e4a0b934f359913ecaf2bb6aa0d11a2ac3c (diff) | |
download | perl-91c3081c6723940aaa1f980c9771b998eb7ba73c.tar.gz |
Correct vim modeline
- ts=4 is evil
- use same settings as in everywhere else in the core sources
-rw-r--r-- | make_patchnum.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/make_patchnum.pl b/make_patchnum.pl index ad2e0f2f40..64a47e874a 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: |