Changeset 9762 for trunk/Padre/lib/Padre/Lock.pm

Timestamp:

12/17/09 20:11:36 (2 years ago)

Author:

adamk

Message:

Landing new lock subsystem

File:

• trunk/Padre/lib/Padre/Lock.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Lock.pm

@@ -9 +9 @@
 sub new {
     my $class = shift;
-    my $self = bless {@_}, $class;
+    my $self  = bless { @_ }, $class;
 
     # Enable the locks
-    if ( $self->{update} ) {
+    if ( $self->{UPDATE} ) {
         $self->{locker}->update_enable;
     }
-    if ( $self->{busy} ) {
+    if ( $self->{BUSY} ) {
         $self->{locker}->busy_enable;
     }
@@ -22 +22 @@
 }
 
+# Disable locking on destruction
 sub DESTROY {
-
-    # Disable the locks
-    if ( $_[0]->{update} ) {
+    if ( $_[0]->{UPDATE} ) {
         $_[0]->{locker}->update_disable;
     }
-    if ( $_[0]->{busy} ) {
+    if ( $_[0]->{BUSY} ) {
         $_[0]->{locker}->busy_disable;
     }