summaryrefslogtreecommitdiff
path: root/make_patchnum.pl
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-01-05 08:12:02 +0100
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2009-01-05 08:13:23 +0100
commit91c3081c6723940aaa1f980c9771b998eb7ba73c (patch)
tree7276fc9ea3ba51f50810fa50aba791ce3ee6c166 /make_patchnum.pl
parent20231e4a0b934f359913ecaf2bb6aa0d11a2ac3c (diff)
downloadperl-91c3081c6723940aaa1f980c9771b998eb7ba73c.tar.gz
Correct vim modeline
- ts=4 is evil - use same settings as in everywhere else in the core sources
Diffstat (limited to 'make_patchnum.pl')
-rw-r--r--make_patchnum.pl12
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: