~ubuntu-branches/ubuntu/maverick/perl-tk/maverick

« back to all changes in this revision

Viewing changes to Tk/Trace.pm

• browse files at revision 11
• compare with another revision
• download diff
• download tarball
• view history from revision 11

Show diffs side-by-side

added

removed

Tk/Trace.pm

1

1

package Tk::Trace;

2

2

 

3

3

use vars qw($VERSION);

4

 

$VERSION = '4.008'; # was: sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;

 

4

$VERSION = '4.009'; # was: sprintf '4.%03d', q$Revision: #7 $ =~ /\D(\d+)\s*$/;

5

5

 

6

6

use Carp;

7

7

use Tie::Watch;

178

178

 

179

179

    my ( $parent, $vref, $op_not_honored, $callabck_not_honored ) = @_;

180

180

 

181

 

    if ( defined $TRACE{$vref}->[0] ) {

182

 

        $$vref = $TRACE{$vref}->[0]->Fetch;

183

 

        $TRACE{$vref}->[0]->Unwatch;

184

 

        delete $TRACE{$vref};

 

181

    if ( defined $vref && defined $TRACE{$vref} && defined $TRACE{$vref}->[0] ) {

 

182

        $$vref = $TRACE{$vref}->[0]->Fetch;

 

183

        $TRACE{$vref}->[0]->Unwatch;

 

184

        delete $TRACE{$vref};

185

185

    }

186

186

 

187

187

} # end traceVdelete

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1