From 204fc54e940e5b5a12d014e3c3d16c06a0241ce8 Mon Sep 17 00:00:00 2001
From: Leon Brocard <acme@astray.com>
Date: Thu, 23 Jun 2011 16:05:06 +0100
Subject: [PATCH] Move Porting/bump-perl-version to use autodie

---
 Porting/bump-perl-version | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/Porting/bump-perl-version b/Porting/bump-perl-version
index 62ae47e..2023ff8 100644
--- a/Porting/bump-perl-version
+++ b/Porting/bump-perl-version
@@ -45,6 +45,7 @@
 
 use strict;
 use warnings;
+use autodie;
 use Getopt::Std;
 use ExtUtils::Manifest;
 
@@ -239,7 +240,7 @@ sub do_scan {
 	    warn "(skipping $file)\n";
 	    next;
 	}
-	open my $fh, '<', $file or die "Aborting: can't open $file: $!\n";
+	open my $fh, '<', $file;
 	my $header = 0;
 
 	while (<$fh>) {
@@ -308,11 +309,11 @@ sub do_update {
 
     my %contents;
     for my $file (sort keys %changes) {
-	open my $fh, '<', $file or die "open '$file': $!\n";
+	open my $fh, '<', $file;
 	binmode $fh;
 	$contents{$file} = [ <$fh> ];
 	chomp @{$contents{$file}};
-	close $fh or die "close: '$file': $!\n";
+	close $fh;
 
 	my $entries = $changes{$file};
 	for my $line (keys %$entries) {
@@ -339,15 +340,15 @@ sub do_update {
 
     for my $file (sort keys %contents) {
 	my $nfile = "$file-new";
-	open my $fh, '>', $nfile or die "create '$nfile' failed: $!\n";
+	open my $fh, '>', $nfile;
 	binmode $fh;
 	print $fh $_, "\n" for @{$contents{$file}};
-	close $fh or die "failed to close $nfile; aborting: $!\n";
+	close $fh;
 
-	my @stat = stat $file or die "Can't stat $file: $!\n";
+	my @stat = stat $file;
 	my $mode = $stat[2];
 	die "stat $file fgailed to give a mode!\n" unless defined $mode;
-	chmod $mode & 0777, $nfile or die "chmod $nfile failed; aborting: $!\n";
+	chmod $mode & 0777, $nfile;
     }
 
     # and rename them
@@ -355,7 +356,7 @@ sub do_update {
     for my $file (sort keys %contents) {
 	my $nfile = "$file-new";
 	warn "updating $file ...\n";
-	rename $nfile, $file or die "rename $nfile $file: $!\n";
+	rename $nfile, $file;
     }
 }
 
-- 
2.7.4