Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

import Tie-Watch 0.97 from CPAN

git-cpan-module:   Tie-Watch
git-cpan-version:  0.97
git-cpan-authorid: LUSOL
git-cpan-file:     authors/id/L/LU/LUSOL/Tie-Watch-0.97.tar.gz
  • Loading branch information...
commit eb200e0c3d9030639573485462633b48dc092e1a 1 parent 585f89a
Stephen O. Lidie authored schwern committed
5 MANIFEST
View
@@ -0,0 +1,5 @@
+MANIFEST
+Makefile.PL
+README
+Watch.pm
+test.pl
7 Makefile.PL 100644 → 100755
View
@@ -2,8 +2,7 @@ use ExtUtils::MakeMaker;
use Config;
WriteMakefile(
- 'NAME' => 'Watch',
- 'VERSION_FROM' => 'Tie/Watch.pm',
- 'INSTALLDIRS' => 'perl',
- 'PM' => {'Tie/Watch.pm' => '$(INST_LIBDIR)/Watch.pm'},
+ 'NAME' => 'Tie::Watch',
+ 'VERSION_FROM' => 'Watch.pm',
+ 'dist' => {COMPRESS => 'gzip', SUFFIX => 'gz'}
);
9 README
View
@@ -1,8 +1,8 @@
Tie::Watch
- An object oriented interface to the Perl builtin tie(), that allows a
-watchpoint to be placed on any Perl variable. A watchpoint is simply a
+ An object oriented interface to the Perl builtin tie(), that allows
+a watchpoint to be placed on any Perl variable. A watchpoint is simply a
callback (subroutine) that is invoked when a variable is accessed.
The callback can do various things:
@@ -18,8 +18,11 @@ Do:
make test
make install
+If you have Tk installed, delete the __END__ statement from test.pl and
+execute "test.pl all" to see a Tk watchpoint example.
+
Steve Lidie
lusol@Lehigh.EDU
-96/09/16
+97/01/11
8 Tie/Watch.pm → Watch.pm
View
@@ -1,4 +1,4 @@
-$Tie::Watch::VERSION = '0.96';
+$Tie::Watch::VERSION = '0.97';
package Tie::Watch;
@@ -160,9 +160,13 @@ Stephen O. Lidie <lusol@Lehigh.EDU>
lusol@Lehigh.EDU, LUCC, 96/12/25
. Version 0.96, release two inner references detected by Perl 5.004.
+ lusol@Lehigh.EDU, LUCC, 97/01/11
+ . Version 0.97, fix Makefile.PL and MANIFEST (thanks Andreas Koenig).
+ Make sure test.pl doesn't fail if Tk isn't installed.
+
=head1 COPYRIGHT
-Copyright (C) 1996 - 1996 Stephen O. Lidie. All rights reserved.
+Copyright (C) 1996 - 1997 Stephen O. Lidie. All rights reserved.
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.
1  test.pl
View
@@ -125,6 +125,7 @@
print "keys=", join(', ', keys %foo), ".\n";
print "\n";
}
+__END__
if ($demos =~ /t/) {
die "Cannot run Tk demo without running scalar demo too." if not
Please sign in to comment.
Something went wrong with that request. Please try again.