Changeset 20343
- Timestamp:
- 2009-08-20T16:47:23+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/convertutil.pm
r18555 r20343 105 105 my $message_prefix = $options->{'message_prefix'}; 106 106 my $message = $options->{'message'}; 107 107 108 108 my $monitor_init = $options->{'monitor_init'}; 109 109 my $monitor_line = $options->{'monitor_line'}; … … 149 149 } 150 150 151 if ($generate_dot) 152 { 153 if ($dot_count == 0) { print $outhandle "\n "; } 154 print $outhandle "."; 155 $dot_count++; 156 157 if (($dot_count%76)==0) 151 152 if ($generate_dot) 158 153 { 159 print $outhandle "\n "; 154 if ($dot_count == 0) { print $outhandle "\n "; } 155 print $outhandle "."; 156 $dot_count++; 157 if (($dot_count%76)==0) 158 { 159 print $outhandle "\n "; 160 } 160 161 } 161 } 162 162 163 163 $result .= $line; 164 164
Note:
See TracChangeset
for help on using the changeset viewer.