Return to wpqio.pm CVS log | Up to [local] / wpscripts / wpquotas |
1.1 yason 1: # $Id$ 2: # 3: package wpqio; 4: 5: our $DEBUG = 1; # set this to true for verbose output 6: 7: 8: sub print($) 9: { 10: return if !$DEBUG; 11: 12: my $data = shift; 13: print "$data"; 14: } 15: 16: 17: return 1;