From 91c3081c6723940aaa1f980c9771b998eb7ba73c Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Mon, 5 Jan 2009 08:12:02 +0100 Subject: Correct vim modeline - ts=4 is evil - use same settings as in everywhere else in the core sources --- make_patchnum.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'make_patchnum.pl') 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: -- cgit v1.2.1