From 02c45c47911841b1dd690d10a4f7a2f267e0a83b Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Thu, 14 May 1998 06:03:50 +0000 Subject: [PATCH] [win32] merge changes#752,753 from maintbranch p4raw-link: @753 on //depot/maint-5.004/perl: d1828021020f24bd64418fabe04b27e70428ad8d p4raw-link: @752 on //depot/maint-5.004/perl: 34b6b77de831d6635128d32b913e21377b083965 p4raw-id: //depot/win32/perl@932 --- README | 9 ++++----- ext/GDBM_File/GDBM_File.pm | 2 +- ext/SDBM_File/sdbm/Makefile.PL | 6 ++++++ pod/perlsyn.pod | 2 +- t/op/pos.t | 16 ++++++++++++++++ 5 files changed, 28 insertions(+), 7 deletions(-) create mode 100644 t/op/pos.t diff --git a/README b/README index 83b9ab5..7cc8021 100644 --- a/README +++ b/README @@ -76,11 +76,10 @@ or if you have any problems building.) 2) Read the manual entries before running perl. 3) IMPORTANT! Help save the world! Communicate any problems and suggested -patches to me, larry@wall.org (Larry Wall), so we can -keep the world in sync. If you have a problem, there's someone else -out there who either has had or will have the same problem. -It's usually helpful if you send the output of the "myconfig" script -in the main perl directory. +patches to perlbug@perl.com so we can keep the world in sync. +If you have a problem, there's someone else out there who either has had +or will have the same problem. It's usually helpful if you send the +output of the "myconfig" script in the main perl directory. If you've succeeded in compiling perl, the perlbug script in the utils/ subdirectory can be used to help mail in a bug report. diff --git a/ext/GDBM_File/GDBM_File.pm b/ext/GDBM_File/GDBM_File.pm index 9c7ae06..09df437 100644 --- a/ext/GDBM_File/GDBM_File.pm +++ b/ext/GDBM_File/GDBM_File.pm @@ -7,7 +7,7 @@ GDBM_File - Perl5 access to the gdbm library. =head1 SYNOPSIS use GDBM_File ; - tie %hash, 'GDBM_File', $filename, &GDBM_WRCREAT, 0640); + tie %hash, 'GDBM_File', $filename, &GDBM_WRCREAT, 0640; # Use the %hash array. untie %hash ; diff --git a/ext/SDBM_File/sdbm/Makefile.PL b/ext/SDBM_File/sdbm/Makefile.PL index 24074af..6003628 100644 --- a/ext/SDBM_File/sdbm/Makefile.PL +++ b/ext/SDBM_File/sdbm/Makefile.PL @@ -37,5 +37,11 @@ config :: lint: lint -abchx $(LIBSRCS) + +# This is a workaround, the problem is that our old GNU make exports +# variables into the environment so $(MYEXTLIB) is set in here to this +# value which can not be built. +sdbm/libsdbm.a: + true '; } diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod index 205be7d..ebaa3b2 100644 --- a/pod/perlsyn.pod +++ b/pod/perlsyn.pod @@ -47,7 +47,7 @@ subroutine without defining it by saying C, thus: Note that it functions as a list operator, not as a unary operator; so be careful to use C instead of C<||> in this case. However, if you were to declare the subroutine as C, then -C would functonion as a unary operator, so either C or +C would function as a unary operator, so either C or C<||> would work. Subroutines declarations can also be loaded up with the C statement diff --git a/t/op/pos.t b/t/op/pos.t new file mode 100644 index 0000000..46811b7 --- /dev/null +++ b/t/op/pos.t @@ -0,0 +1,16 @@ +#!./perl + +print "1..3\n"; + +$x='banana'; +$x=~/.a/g; +if (pos($x)==2) {print "ok 1\n"} else {print "not ok 1\n";} + +$x=~/.z/gc; +if (pos($x)==2) {print "ok 2\n"} else {print "not ok 2\n";} + +sub f { my $p=$_[0]; return $p } + +$x=~/.a/g; +if (f(pos($x))==4) {print "ok 3\n"} else {print "not ok 3\n";} + -- 2.7.4