sablink/molecules
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[modify.pl] switch away from smart match and given

Browse Source
This commit is contained in:
Sławomir Nizio
2014-11-29 20:22:12 +01:00
parent 435ecffb61
commit 0642bddf02
1 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files
modify.pl
+19 -19
View File
@@ -159,25 +159,25 @@ else {
say "OK to proceed? [y/n]";
while (my $inp = <STDIN>) {
chomp $inp;
given (lc($inp)) {
when ('y') {
unless (rename $tmp_file, $file) {
warn "moving file failed: $!\n";
exit 1;
}
say "Wrote to $file.";
unlink $lock_file or warn "removing lock file failed: $!\n";
exit 0;
}
when ('n') {
say "Okay, not saving changes.";
unlink $tmp_file or warn "removing temp. file failed: $!\n";
unlink $lock_file or warn "removing lock file failed: $!\n";
exit 0;
}
default {
say "I don't can not understand the answer!";
my $lc_inp = lc $inp;
if ($lc_inp eq 'y') {
unless (rename $tmp_file, $file) {
warn "moving file failed: $!\n";
exit 1;
}
say "Wrote to $file.";
unlink $lock_file or warn "removing lock file failed: $!\n";
exit 0;
}
elsif ($lc_inp eq 'n') {
say "Okay, not saving changes.";
unlink $tmp_file or warn "removing temp. file failed: $!\n";
unlink $lock_file or warn "removing lock file failed: $!\n";
exit 0;
}
else {
say "I don't can not understand the answer!";
}
}
}
@@ -277,7 +277,7 @@ sub search_dups {
my $stop_at_first = shift;
my @ret = ();
for (0..$#section_strings) {
if ($section_strings[$_] ~~ [ $text, $text_c ]) {
if ($section_strings[$_] eq $text or $section_strings[$_] eq $text_c) {
push @ret, $_;
last if $stop_at_first;
}