File: patch.size

package info (click to toggle)
sympa 2.6.1-3
  • links: PTS
  • area: main
  • in suites: potato
  • size: 2,940 kB
  • ctags: 1,069
  • sloc: perl: 8,446; makefile: 237; sh: 191; ansic: 172; lisp: 32
file content (18 lines) | stat: -rw-r--r-- 395 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
--- Log.pm.orig	Tue Dec 22 15:17:25 1998
+++ Log.pm	Tue Mar 30 14:38:01 1999
@@ -33,6 +33,15 @@
    my $m = shift;
    my $errno = $!;
 
+   open STAT, "/proc/$$/stat";
+   my $stat = <STAT>;
+   close STAT;
+
+   $stat =~ /^(\S+\s+){22}(\d+)/;
+   my $size = $2 /1024;
+
+   $m = "size[$size] $m";
+
    syslog($fac, $m, @_);
    if ($main::opt_d || $main::opt_F) {
       $m =~ s/%m/$errno/g;