diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-12-22 20:01:59 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2005-12-22 20:01:59 +0000 |
| commit | b7421fead974b6ad2f591b1216964af1a295983c (patch) | |
| tree | a1128f95f0901aa0036321be04dfeab36c42fe43 /RPM4 | |
| parent | 4ea78a1a20371af9edd4ee931397cccb2e8964ab (diff) | |
| download | perl-RPM4-b7421fead974b6ad2f591b1216964af1a295983c.tar perl-RPM4-b7421fead974b6ad2f591b1216964af1a295983c.tar.gz perl-RPM4-b7421fead974b6ad2f591b1216964af1a295983c.tar.bz2 perl-RPM4-b7421fead974b6ad2f591b1216964af1a295983c.tar.xz perl-RPM4-b7421fead974b6ad2f591b1216964af1a295983c.zip | |
- use strict everywhere, thanks CPAN tester
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@86 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4')
| -rw-r--r-- | RPM4/lib/RPM4/Header/Changelogs.pm | 3 | ||||
| -rw-r--r-- | RPM4/lib/RPM4/Header/Dependencies.pm | 3 | ||||
| -rw-r--r-- | RPM4/lib/RPM4/Header/Files.pm | 3 |
3 files changed, 9 insertions, 0 deletions
diff --git a/RPM4/lib/RPM4/Header/Changelogs.pm b/RPM4/lib/RPM4/Header/Changelogs.pm index 570d190..37c6287 100644 --- a/RPM4/lib/RPM4/Header/Changelogs.pm +++ b/RPM4/lib/RPM4/Header/Changelogs.pm @@ -18,6 +18,9 @@ package RPM4::Header::Changelogs; +use strict; +use warnings; + sub new { my ($class, $header) = @_; diff --git a/RPM4/lib/RPM4/Header/Dependencies.pm b/RPM4/lib/RPM4/Header/Dependencies.pm index ecdf5af..da809cf 100644 --- a/RPM4/lib/RPM4/Header/Dependencies.pm +++ b/RPM4/lib/RPM4/Header/Dependencies.pm @@ -18,6 +18,9 @@ package RPM4::Header::Dependencies; +use strict; +use warnings; + sub new { my ($class, $deptag, $initdep, @depdesc) = @_; print "$deptag, $initdep\n"; diff --git a/RPM4/lib/RPM4/Header/Files.pm b/RPM4/lib/RPM4/Header/Files.pm index 236d248..a3d9d78 100644 --- a/RPM4/lib/RPM4/Header/Files.pm +++ b/RPM4/lib/RPM4/Header/Files.pm @@ -18,6 +18,9 @@ package RPM4::Header::Files; +use strict; +use warnings; + sub dircount { $_[0]->countdir(); } |