diff options
| author | Slaven Rezic <slaven@rezic.de> | 2002-04-08 18:12:52 +0200 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-04-08 13:29:28 +0000 |
| commit | 7ddf7bb520763aec5b1b61ae724395b9cfbe9eae (patch) | |
| tree | 26c539c39bbfd1a899a97cfb9c3bc431c8228231 /pod/perllexwarn.pod | |
| parent | c731e18ea9a2e5789568f97517c84f11d4759958 (diff) | |
| download | perl-7ddf7bb520763aec5b1b61ae724395b9cfbe9eae.tar.gz | |
example in pod/perllexwarn.pod
Message-Id: <200204081412.g38ECqkX049116@vran.herceg.de>
p4raw-id: //depot/perl@15804
Diffstat (limited to 'pod/perllexwarn.pod')
| -rw-r--r-- | pod/perllexwarn.pod | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pod/perllexwarn.pod b/pod/perllexwarn.pod index fd4b025ae4..0edb2bc1d6 100644 --- a/pod/perllexwarn.pod +++ b/pod/perllexwarn.pod @@ -371,8 +371,9 @@ Consider the module C<MyMod::Abc> below. sub open { my $path = shift ; - if (warnings::enabled() && $path !~ m#^/#) { - warnings::warn("changing relative path to /tmp/"); + if ($path !~ m#^/#) { + warnings::warn("changing relative path to /tmp/") + if warnings::enabled(); $path = "/tmp/$path" ; } } |