diff options
| author | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2012-01-01 18:24:37 -0600 |
|---|---|---|
| committer | Timothy Pearson <kb9vqf@pearsoncomputing.net> | 2012-01-01 18:24:37 -0600 |
| commit | 4e997a9c6e25689dca65a2ec573a599699ef8170 (patch) | |
| tree | fdb5ecac42fb8204df9fc8c9abe1c784d4719e0e /PerlQt/lib/Qt/debug.pm | |
| parent | bfa107694b2507a7116f8856cafe4ab1375da8a9 (diff) | |
| download | libtqt-perl-4e997a9c6e25689dca65a2ec573a599699ef8170.tar.gz libtqt-perl-4e997a9c6e25689dca65a2ec573a599699ef8170.zip | |
Initial TQt conversion
Diffstat (limited to 'PerlQt/lib/Qt/debug.pm')
| -rw-r--r-- | PerlQt/lib/Qt/debug.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/PerlQt/lib/Qt/debug.pm b/PerlQt/lib/Qt/debug.pm index 28c0a43..a0f4e19 100644 --- a/PerlQt/lib/Qt/debug.pm +++ b/PerlQt/lib/Qt/debug.pm @@ -1,5 +1,5 @@ -package Qt::debug; -use Qt; +package TQt::debug; +use TQt; our %channel = ( 'ambiguous' => 0x01, @@ -23,14 +23,14 @@ sub import { $usage++; } } - Qt::_internal::setDebug($db); + TQt::_internal::setDebug($db); print "Available channels: \n\t". join("\n\t", sort keys %channel). "\n" if $usage; } sub unimport { - Qt::_internal::setDebug(0); + TQt::_internal::setDebug(0); } 1;
\ No newline at end of file |