SVN: toys/rsget.pl/RSGet/Tools.pm

[sparky]

Author: sparky
Date: Wed Sep 30 00:34:47 2009
New Revision: 10638

Modified:
   toys/rsget.pl/RSGet/Tools.pm   (contents, props changed)
Log:
- add set_rev


Modified: toys/rsget.pl/RSGet/Tools.pm
==============================================================================
--- toys/rsget.pl/RSGet/Tools.pm	(original)
+++ toys/rsget.pl/RSGet/Tools.pm	Wed Sep 30 00:34:47 2009
@@ -6,12 +6,23 @@
 
 require Exporter;
 @ISA = qw(Exporter);
- at EXPORT = qw(s2string bignum de_ml hadd hprint p isotime require_prog
+ at EXPORT = qw(set_rev s2string bignum de_ml hadd hprint p isotime require_prog
 	dump_to_file randomize %getters %settings);
 @EXPORT_OK = qw();
 
 our %settings;
 our %getters;
+our %revisions;
+
+sub set_rev($)
+{
+	my @id = split /\s+/, shift;
+	my $pm = $id[1];
+	my $rev = $id[2];
+	$pm =~ s/\.pm$//;
+	$revisions{ $pm } = 0 | $rev;
+}
+set_rev qq$Id$;
 
 sub s2string($)
 {
@@ -55,8 +66,15 @@
 sub hprint(%)
 {
 	my $h = shift;
-	foreach ( keys %$h ) {
-		p "$_ => $h->{$_}";
+	foreach my $k ( keys %$h ) {
+		my $v = $h->{ $k };
+		if ( not defined $v ) {
+			$v = "undef";
+		} elsif ( $v =~ /^\d+$/ ) {
+		} else {
+			$v = '"' . $v . '"';
+		}
+		p "$k => $v";
 	}
 }