Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-12-13 18:27:35 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

change code to quiet perl warnings.

Browse Source
This commit is contained in:
kestes%walrus.com 2002-12-09 18:15:06 +00:00
parent 66b53f0897
commit 0fd28a9024
2 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
webtools/tinderbox2/src/clientbin/cull_archive_dirs
View File

@ -25,8 +25,8 @@
# complete rewrite by Ken Estes, Mail.com (kestes@staff.mail.com).
# Contributor(s):
# $Revision: 1.10 $
# $Date: 2002/05/10 21:21:59 $
# $Revision: 1.11 $
# $Date: 2002/12/09 18:15:06 $
# $Author: kestes%walrus.com $
# $Name: $
@ -140,9 +140,10 @@ sub untaint_digits {
sub format_digits_human_readable {
my ($num) = @_;
my $char = "G";
my $break = 1000_000_000;
my $char = "G";
$char = "G";
if ($num >= $break) {
my $trunc = ( $num - ($num % $break) ) / $break;
$out = $trunc;
@ -151,7 +152,7 @@ sub format_digits_human_readable {
}
$break = $break / 1000;
my $char = "M";
$char = "M";
if ($num >= $break) {
my $trunc = ( $num - ($num % $break) ) / $break;
$out = $trunc;
@ -160,7 +161,7 @@ sub format_digits_human_readable {
}
$break = $break / 1000;
my $char = "K";
$char = "K";
if ($num >= $break) {
my $trunc = ( $num - ($num % $break) ) / $break;
$out = $trunc;

8
webtools/tinderbox2/src/clientbin/show_time
View File

@ -1,18 +1,20 @@
#!/usr/bin/perl
# $Revision: 1.2 $
# $Date: 2002/05/02 22:57:29 $
# $Revision: 1.3 $
# $Date: 2002/12/09 18:14:07 $
# $Author: kestes%walrus.com $
# $Source: /home/hwine/cvs_conversion/cvsroot/mozilla/webtools/tinderbox2/src/clientbin/show_time,v $
# $Name: $
$t=time();
print (
$out= (
"The current time on ".`hostname`. "\n".
"UnixTime: ".$t."\n".
"LocalTime: ".localtime($t)."\n".
"GMTime: ".gmtime($t)."\n".
"\n"
);
print $out;