From 99760a5fafb3814828f1ecfb826d50e0f5aa48d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jos=C3=A9=20Alburquerque?= Date: Sun, 5 Jun 2011 15:42:39 -0400 Subject: tools: Recursive whitespace cleanup in folder. --- tools/pm/Property.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'tools/pm/Property.pm') diff --git a/tools/pm/Property.pm b/tools/pm/Property.pm index 80f21bbb..a0e97596 100644 --- a/tools/pm/Property.pm +++ b/tools/pm/Property.pm @@ -47,7 +47,7 @@ sub new $$self{writable} = ($1 eq "#t") if ($def =~ s/\(writable (\S+)\)//); $$self{construct_only} = ($1 eq "#t") if ($def =~ s/\(construct-only (\S+)\)//); $$self{entity_type} = 'property'; - + # Property documentation: my $propertydocs = $1 if ($def =~ s/\(docs "([^"]*)"\)//); # Add a full-stop if there is not one already: @@ -62,9 +62,9 @@ sub new } } } - + $$self{docs} = $propertydocs; - + $$self{name} =~ s/-/_/g; # change - to _ -- cgit v1.2.1