"die" used instead of "croak" ausgebaut, dafür wird jetzt aber das Modul Carp vorausgesetzt, jetzt aber
1.1 --- a/blib/lib/csvdiff.pl Fri Oct 02 11:42:38 2009 +0200
1.2 +++ b/blib/lib/csvdiff.pl Fri Oct 02 11:45:32 2009 +0200
1.3 @@ -1301,7 +1301,7 @@
1.4 }
1.5
1.6 if($s_col_file) {
1.7 - open( "FILE_COL", "<", "$s_col_file" ) or die "File $s_col_file could not be opend: $!";
1.8 + open( "FILE_COL", "<", "$s_col_file" ) or croak "File $s_col_file could not be opend: $!";
1.9 @a_lines_col = <FILE_COL>; # komplette Datei in Array einlesen
1.10 close( FILE_COL );
1.11 if (scalar @a_lines_col > 1) {
2.1 --- a/blib/script/csvdiff.pl Fri Oct 02 11:42:38 2009 +0200
2.2 +++ b/blib/script/csvdiff.pl Fri Oct 02 11:45:32 2009 +0200
2.3 @@ -1304,7 +1304,7 @@
2.4 }
2.5
2.6 if($s_col_file) {
2.7 - open( "FILE_COL", "<", "$s_col_file" ) or die "File $s_col_file could not be opend: $!";
2.8 + open( "FILE_COL", "<", "$s_col_file" ) or croak "File $s_col_file could not be opend: $!";
2.9 @a_lines_col = <FILE_COL>; # komplette Datei in Array einlesen
2.10 close( FILE_COL );
2.11 if (scalar @a_lines_col > 1) {
3.1 --- a/csvdiff.pl Fri Oct 02 11:42:38 2009 +0200
3.2 +++ b/csvdiff.pl Fri Oct 02 11:45:32 2009 +0200
3.3 @@ -1301,7 +1301,7 @@
3.4 }
3.5
3.6 if($s_col_file) {
3.7 - open( "FILE_COL", "<", "$s_col_file" ) croak die "File $s_col_file could not be opend: $!";
3.8 + open( "FILE_COL", "<", "$s_col_file" ) or croak "File $s_col_file could not be opend: $!";
3.9 @a_lines_col = <FILE_COL>; # komplette Datei in Array einlesen
3.10 close( FILE_COL );
3.11 if (scalar @a_lines_col > 1) {