bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2026-09-16 08:31:39 -04:00
Code Issues Projects Releases Wiki Activity

Making debconf happy.

Browse Source
This commit is contained in:
freesource
2001-10-12 18:51:01 +00:00
parent 35c8a84f05
commit d59c384d16
4 changed files with 75 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/imswim
+4 -4
View File
@@ -7,7 +7,7 @@ use strict;
#
# Package administration and research tool for Debian
#
# Copyright (C) 1999-2000 Jonathan D. Rosenbaum
# Copyright (C) 1999-2001 Jonathan D. Rosenbaum
#
#
#
@@ -51,7 +51,7 @@ line.
my $home = $ENV{'HOME'} . "/";
if ($#ARGV == -1) {
print "swim: imswim requires arguments, see program for instructions\n";
print STDERR "swim: imswim requires arguments, see program for instructions\n";
exit;
}
else {
@@ -71,8 +71,8 @@ line.
close(LIST);
foreach (@count) {
$x = 1 if $x == 6;
print "|\r" if $x == 1 || $x == 4; print "/\r" if $x == 2;
print "-\r" if $x == 3 || $x == 6; print "\\\r" if $x == 5;
print STDERR "|\r" if $x == 1 || $x == 4; print STDERR "/\r" if $x == 2;
print STDERR "-\r" if $x == 3 || $x == 6; print STDERR "\\\r" if $x == 5;
$x++;
chomp $_;
# does /. exist? it should be first.